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DAICLIC INFOS : 

DAICLIC parait tous les trois mois. 

l'abonnement est compris dans la cotisation annuelle à 
I1.0.C.Bordeaux et à D.C.A. (du 1/1 au 31/12). A 
l'inscription, les numéros déjà parus dans l’année sont 
envoyés. 


International DAI Club Bordeaux C/0 Bruno Delannay 
Res. Les Acacias Bt.B3, Avenue de Saige 
33600 PESSAC (FRANCE) tel : S6.45.97.70. 


Dai Computer Association C/Q D'ARANTES Luc 
10 D Res. Sainte Marie, & Chemin Sainte Marie 
30200 BAGNOLS sur CEZE (FRANCE) 

tel : 66.89.57.60 
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* Librairie + Bibliothèque + Service Listing 
* Réparations des DAI , OCR et Ken-Dos 

# Logithéque Ken-Dos , OCR , K7 audio 


D:C,: A. 8 
* Créations et réalisations de cartes HARD 
# Logithéque VC 1541 Allemand 
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Banque Crédit Lyonnais , 247 Cours GAMBETTA ,33 400 Talence 
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Soit au président trésorier de D.C.A. : Mr. D'’ARANTES Luc. 
FRAIS POSTAUX : l En ces d'achats groupés 
l 
FRANCE EUROPE | FIL VUE F2 
1 T1 + 12 = T3 
T1 100g 3,50 FF 7,60 FF I 12 + 12 = T3 
T2 250g 7,10 FF 14,30 FF l T2 + T3 = T4 
T3 500g 10,30 FF 27,30 FF | 13 + T3 = Ta 
Ta 1Kg 14,60 FF 47,80 FF l 
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REDACTION 


Diverses remarques 


Un grand merci à tous ceux qui ont envoyé leur obole pour 
que se poursuive notre club, qu'elle ait été sous forme 
d'articles, de participation aux activités, ou de don 
financier, 

Ensuite, je prie d'excuser le temps de plus en plus long mis 
à vous répondre : parfois un mois pour certains, mais il 
faut savoir que je suis désormais seul à Sordeaux à assurer 
les différentes activités : élaboration de la maquette de la 
présente revue, démarches auprès des imprimeurs, envoi 
postal, service télématique, réparations des DAI, Logithèque, 
Librairie etc... et tout ceci me prens un temps pas 
possible. 


Je vous communique aussi une partie de ma correspondance 
avec les Allemands, vous pourrez constater les très grandes 
possibilités de leur materiel. 

Les personnes désirant des précisions sur ces articles ou 
les possibilités d'achat des interfaces décrites (et bien 
d'autres) sont priées de contacter: 

Mr.Hardy STRAOBEL, Neuselsbrunn 51, 8500 nürnberg 50, 

tel. (0911) 86.30.80 soit en Allemand soit en Anglais. 


Et pour notre service télématique I! (vous en conaissez 
beaucoup des petits clubs qui ont un service télématiçue 
accessible en 3615 ?) 


ALIENOR nous à offert ses services, soyez nombreux à en 
profiter et à me guider sur ce que vous désireriez trouver 
dans notre service télémetique, 


Déjà des informations sont chergées, vous pourez me 
contacter directement dans ma äAL, je vous répondreit en 
priorité. 


J'attends vos suggestions sur les infos que vous désirez 
trouver concernant votre club. 


£t que diriez vous d'avoir des logiciels en accès 
téléchargeables grace à notre logiciel INTEAOAI !! 


de. | 22088 prb rte : - Ms _:: 
DAI-ISTE YEUX ……..I.D.C. A !! ee 


TOUT CE QUE 


mustimustmustmugtmustmustmustmustmustimustm 
u u 
3 Le MUST des logiciels GRATUITS 4 
t t 


musitmustmustmustmustmusimustmustmustmustu 


Si vous désirez un de ces logiciels 

Il vous suffit d'envoyer votre demande à I.0.C.Bordeaux. 
Pour éviter les grandes pertes de temps dues à la copie de 
ces programmes , ils sont d'ores at déjà enregistrés sur K7 
audio préts à être envoyés , le tout vous étant proposé à 
prix coutant !!1! 

Donc pour chaque programme demandé , envoyer avec votre 
demande un_ chèque de 45FF destiné à couvrir le prix de la K7 
de l'enveloppe ,de l'éventuelle copie du mode d'emploi et 
des frais d'envoi. 


DEJA VU : 


t/COMMUNICATION : 


2)L' EAULATEUR AINITEL 


Auteur “ Sébastien Oubourg 


Language = Source assembleur en SPL , ou en LM 
b) INTERDAI 

Auteur “ Sébastien Dubourg 

Lénguage = Source assembleur en SPL , ou en LM 


2/0ESSIN : 


e) GRAPHIDEO 

Auteur . ? 
Lénguege = LM + Basic 
b) CLI0 


Auteur - Multisoft 
Lenguage = LM + Basic 


c) COMPILATIOS : 


Une compilation des plus belles images sur le DAI dont la 
plupart des images digitalisées par caméra vidéo 
surprenant et sgréable. 


UTILITAIRES 3 


a) COPY KE7 (=2) DCR : 

Auteur = Sébastien Oubourg et Bruno Delannay 
Language = Source assembleur en SPL , ou en LM 
b) COPIEUR UNIVERSEL : 

Auteur - Sébastien Dubourg 

Languege = Source assembleur en SPL , ou en LM 
c) COPIEUR KE#DOS : 

Auteur - » 

Lenguage = LM 

c) SUPERDIRECTORY 


Auteur = Sébastien DOubourg 
Language = Source assembleur en SPL , ou en LM 


e) BOURSICOT AGE : 
Il permet de stocker, comparer, surveiller et représenter 
sous forme de graphisme ces actions boursieres. 


Indispensable ce nos jours... 


Languege = Basic ecspté Ken:-Dos ou OCR (préciser la version voulue) 


f) TAREME ASTRAL 


Îl calcule tous les paramètres de vos positions planétaires, 
et vous dessine votre carte du ciel. Très bien fait et 
précis. 


4/TRAITEMENT DE TEXTE ‘ 


DAIWORDST AR : 


Auteur “ Uwe Wienkop (auteur de Ll'exellent SUPERBASE) 
Language = LM préciser version 


Fourni evec les 12 pages correspondant à la version 
Française de ce programme. 


S/#*_ JEUX _+#+ 3 


a) OTHELLO DAIAO8D : 

Auteur . 

Language = LM 

b) ULTIME PLASETE : 

Fourni avec son mode d'emploi de 6 pages 
Auteur “ Eric Oubreuil 

Language = LM + Basic 

c) EXPANSIOS : 

Fourni avec son mode d'emploi de 3 pages 
Auteur * Eric Dubreuil 

Lenguege = LM + Basic 

c) SYAORGIA 

Auteur = Mr. .Stransky 

Language = Basic 

e) GRIAAR : 

Auteur = Mr. Stranshky 

Languège =» Basic 

f) DEFÉNDER : 


Un jeu d'arcade rapide et haut en couleurs. Un classique qui 
vous distraira des heures. 


Nous essaierons de préparer pour chaque revue de nouveaux 
logiciels d'accés gratuit afin de diffuser au maximum cette 
pratique. 


Demandes à adresser à : 


International DAI Club Bordeaux 
c/0 Bruno Delannay 

Res. Les ÂAcacias Bt.B3 

Avenue de Saige 

33600 PESSAC (FRANCE) 
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se Rappelons les livres proposés 


Le secteur bibliothèque du club se développe grace à la 
coopèration de l'un de nosmembres qui «a traduit de l'Anglais 
en Français , de façon très professionelle, le manuel 
complet du KEN-005S. 


*En raison du don bénévolle de ce travail au club , ce livre 
vous est offert à prix coutant pour le prix de _40FF port 
non compris. * + MANUEL KEN-D00S en FRANCAIS ® © 

(pour le port rajouter le tarif postel T2) 


‘Vu le nombre ces demandes , une réédition du ‘ToS 
COMMENTE” à été faite.Que tous ceux qui n'avaient pu 
l'obtenir l'an dernier me réécrivent. Le prix lui n'e pes 
augmenté : 150FF 

(pour le port rajouter le tarif postal T2) 


Toujours disponibles = le livre {indispensable eu 
programmeur en assembleur ,du club FLAMMAND associé DAINAMIC 
Le FIAMMARE MANUEL écrit en Anglais: 2S0FF 

(pour le port rajouter le tarif postal T2) 


Et les ceux tomes de ‘Apprendre à programmer sur le DAI’ 
SOFF pièce 
(pour le port rajouter le tarif postal T2) 


portraits codés. PORTRAITS CODES, 


Vous vous rappelez DAITIME 4 ? 
LE JEU CONCOURS *LE PORTRAIT à DECODER® ? 


On vous l’a rappelé dans DAICLIC 11. 
Cune production 1.DC.A) 


Je devals vous parler des cadeaux dans DAICLIC 12, mals j’al oublié. Je le feral 
donc à la fin de cet article. En effet DCA a prévu de recompanser les meilleures 
solutions au problème, en pensant que l’on recevrait lesdites solutions 1!!OR 
APRES 6 MOIS, RIEN !1!! 

Que devons-nous faire ? 

Abandonner et garder les cadeaux ? 

QU ATTENDRE ENCORE ? Comblen de temps ? 


Eh bien nous attendrons..... 
..et nous récompenserons, comme || se doit,..... 


. IQUTES participations !! 


C'est simple ! (hum) 
C'est pas cher ! (gratuit) 
et ça peut rapporter gros ! (trés gross 


Mals en attendant procedons avec méthode, analysons ensemble le probléme. 
Nous avons une grille de 35 cases horizontales sur 45 cases verticales contenant 
des chiffres de 1 à 9 et des cases Blanches. Chaque chiffre est en falt le code 
d'une trame de remplissage de |a case.(Prenez une grille sous les yeux, vous 
verrez mleux !) 

Pour arriver au but 11 nous faut d’abord saisir cette grille codée. À cette 
fin, 11 faut pour facilité la tâche, attribuer un code aux cases blanches, qui 
sont en falt, le fond œ tableau, le chiffre 0, non utilisé, me semble tout In- 
diqué. La solution d’un balayage des codes de la droite vers la gauche, de haut 
en bas se semble être me semble relever du bon sens. 


séquence de 
SAISIE 


dernier code 
NON ? 


OUI ? 


«+ trés gros pour le budget DCA, voir fin d‘article. 


PORTRAITS CODES 


code 0 ? ../non.. 


R— 
ESS 


C_cow 8? Dienom. 
UE. 
TRAITEMENT ERREUR 


oui 


ROUTIMES D'AFFICHAGE 
DERN 
non 


IER CODE ? 


oui 


ORDINOGRAMME D°INTERPRETATICN DES CODES, 


LES NEWS DE OCA. 


PORTPAITS CODES, portraits codés. 


Ca y est on à salsi les codes ! C'était plutôt simple ! non ? 
11 suffisait de falre deux boucles pour les balayages drolte<-->gauche et 
haut<--)>bas, et de mettre chaque code dans une table dimensionnée en Indiquant 


sa position géographique : 
DIMC(posX ,posŸ , code) 


Les codes étants saisis, 11 faut malntenant les Interpreter, en vue de l’af- 
fichage. Volci,grosso modo, l’ordinnogramme à suivre : volr page suivante. 

À vous de voir comment tralter les erreurs, l’affichage, la saisie, la sau- 
vegarde ...... Bref, à vous de faire le programme ! 

Vous pouvez travalller dans le language de votre choix. Les possiblités de 
programmation sont grandes, ne serait-ce qu’en basic (basic standart,Xbasic,ba- 
sic Vi.2Cextra).....) Pour le tiny pascal je vous Invite à lire les articles de 
Ph. Casier ,bldoullleur de DCA ! (évidement que c’est écrit sur sa carte de visi- 
CO 2 

Par exemple, pour la salsile vous avez le cholx entre les DATA, les tableaux 

dimensionnés ..,...... . 
RQ : Pensez aux tests de ‘tin de ligne code, c’est peut être plus long à æettre 
en oeuvre, maos les risques d'erreur d’encodage sont réduits, (La salsle c'est 
lé plus em....pardon.) Imaginez, après avoir oublié un code par cl par 1là, #1 
votre programme ne se plante pas, la *GUEULE" que fera votre personnage !!! 


Pour les test de lecture des codes, pensez ON GOTO, ON GOSUB c’est pratique 
et pratiquement délirant avec XBASIC+BASIC V1.2....... 

Pour l‘’afflchage vous avez un choix encore plus grand : 

- faire tracer sous basic le contenu de chaque case.(c’est long et délicat) 

- faire appel à des SHAPES 

- faire appel à des programmes types PGT,SPGT, Superfont......pour lesquels 
vous aurez créé les matrices carrée contenant les sysboles 0 à 9. 


J'espere vous avoir un peu motivé et J'attends vos réalisations. 

Pensez à fournir des explications dans votre courrier quand au mode d’utill- 
sation de votre programme. 

S1 vous rencontrez des problèmes, écrivez-mol, on les transcri au besoin 
dans NEW DAICLIC. 

Nous disposons actuellement d’une trentaine de portraits à décoder. Imaginez 
un peut les manipulations possibles, les animations une fols les portraits enco- 
cés. 

Imaginez Brasseur (claude) avec les yeux de Jeanne (Mas). 

(respectivement DAICLIC 11 et DAITIME 4) 


Pour les cadeaux, 11s consisterons en lIvres (Qu commerce), K7, disk, mi- 
cro£7 bourrées de programmes dont certaine auront des softs encore en vente... 
Les livres seront des ouvrages d’Interêts généraux . 

Le premier prix aura une valeur de plus de trols'cent francs (françals blen sûr, 
DCA ne distribue pas des pourboires !) 


QUE VOUS AYEZ 7 OÙ 77 ANS 
EXERCEZ-VOUS À LA PROGRAMATION 
et 
envoyez-nous vos listing et autres supports 
dès que possible, aux personnes habituelles. 


d’Arantes pour DCA87 


nb: Jeu-concours ouvert à tous, membres et non-membres. 
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C'ÉCÉ 


CRE, 


10011001 : A CHACUN SON LANGAGE 


n 


1-BASIC PARTIE 2 : LEVEL 


Le canal “level 1“ est une extension des commandes basic; [1 s’agit de commandes inexis- 
tante sur le DAI, et ne concernent pas les commandes graphiques. x 


SQUS LES DRAPEAUX 


Non, ce n'est pas un avis d'incorporation militaire ! Mais, bel et bien, la traduction 
litérale de “LABEL". 
Lorsqu'on travaille un programme, il est souvent difficile de se rappeler où l'on doit et- 
fectuer les sauts de ligne alors qu'il est beaucoup plus facile de retenir le nom où doit 
se faire le saut. 

Ah si la ligne 37369,82.... 

Oh pardon, la ligne 37370 s'appelait "débutdelafin", ça serait quand mème plus faci- 
le à retenir : 

Voilà a quoi sert la commande : DEFLINE , pour définition de ligne 


syntaxe : 
y n° v sn°li MAT sssvus . 
exemple : 
DEFLINE DEBUTDELAFIN:37370,DE BUT=10,FIN=50000 


Ca y est, les drapeaux sont plantés. 11 faut donc aller les chercher : 


LOOSUR label le permettent. 
On fait un GOTO lou GOSUB) jusqu'au label dont la valeur label*% est fourni par la ligne 


DEFLINE... 
par exemple : LGOTO DE BUT équivaut à GOTO 10 
et LGOSUB DE BUTDELE FIN equivaut à GOSUB 37370 


Si label% n'a pas été défini, l'ordinateur renvoi le message : 
“"UNDEFINED LINE NUMBER" 


Lorsqu'on utilise des DATA, il est parfois interressant de ne pas relire les DATA à par- 
tir du début, autrement dit, il est interressant d'avoir des LABEL. 
par exemple : 


40000 DATA... INITIALISATION 


50000 DATA... DONNEES PRINCIPALES 
50010 DATA nnnnnrnrrune 


Un RESTORE fera retourner la lecture en 40000 alors qu'un LRESTORE FIN ira en 50000. 


1001001 : CUN SON LANGAGE 


Pour une programmation plus complexe 11 serait inetrressant de faire varier l'en- 
droit où l'on fait le restore. C'est la fonction de la commande : 


vari s 
VARiable Label LINE 


n'étant soit un entier 
soit-une variable entière 
soit une opération entière 


par exemple : 
VARLINE FIN: nbdatas10_50000 
puis LRESTORE FIN 
fera lire la ligne 50000 si nbdata=0 
fera lire la ligne 50010 si nbdatas!....etc… 
L'opération effectuée est : nen°ligne 


Il est également possible de faire LGOTO ou LGOSUB label% ; label* étant défini dans 
une VARLINE. Cela donnera de super ON GOSUB ou super ON GOTO (voir ex en page 20 
manuel XBASIO). 


Vive la quille, quittons les drapeaux ! 
Passons à la recherche d'emploi ou 
Programmation structurée. 


Il s'agit en fait de trois groupe de condition. 


IF THEN ELSE 
REPEAT UNTIL 
WHILE WHEND 


8£PEAT UNTIL jiti 
la partie du programme situé entre le REPEAT et le UNTIL sera répètée tant que 
la condition ne sera pas remplie 
par exemple : 

5 X=1 

10 REPEAT 

20 X2X+1:2X 

30 UNTIL XC>0 


La ligne 20 sera exécutée tant que X sera <)0.( faites un BREAK car X sera toujours (29 
cans cet exemple) 


RQ : en cas d'UNTIL sans REPEAT le DAI delivre le message "UNTIL WITHOUT REPE AT" 


U LAN ll 
WHEND 
tant que La condition n'est pas remplie, l'exécution est poursuivie au numero de li- 
gne indiqué, ou Lsqu'à rencontre de WHE ND 


RE 


AGE 


VHILE condition :. 

tant que la condition n’est pas remplie, l'exécution des instructions située avant 
WHEND est poursuivie.Quand la condition est vérifiée, les instructions apres les deux 
points sont exécutées. 


RQ : en cas de WHEND sans WHILE le DAI renvoie le message d'erreur “WHEND WI- 
THOUT WHILE*. 


[IMPORTANT 
Il peut y avoir sept niveau de REPEAT-UNTIL et WHILE -WHE ND imbriqués : 


mais pas enchevetrés : 


RQ :le message “REPEAT/WHILE OVERFLOW" indique tout excès. 


Amis DAl-istes, le temps nous est conté ! 
Pardon COMPTE ! 


LTIIME remise à zèro du timer 


Hi-a7 {l 
TIMER variable! 
On attribue à la variable , la valeur du timer 
soit en entier ===" > temps en microsec 


soitenréel -----"- > temps en sec 
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100100! : A CHACUN SON LANGAGE 


Il est TEMPS de formatter une chaine de caractères, autrement dit de parler de 
? 


On utilise des variables entières ou chaine de caractères... 
Mais à-t-0n besoin de vous presenter le printusing ? 


PRINTUSING Format$,syntaxe habituelle de print 
ou U?idem 
ou  U? varlable#=format#, syntaxe habituelle 


EN VRAC 
CLS le classique CLEAR SCREEN nettoye l'écran. 


HOME nettoye les ecrans textes en mode 0 et mode À 
abréviation la flèche des puissances 


REPT n,chaine de caractères 

REPeaT output, 0€= nt=255, On répète n fois la chaine de caractère 

n peut ètre une variable. REPT admet également une variable comme chaine de ca- 
ractère . 

Si la chaine de caractère est trop longue le DAI envoie le message : "STRING TOO 
LONG* 


n 
abréviation T? 
TERMinal OUTput équivaut a un print sur imprimante seule, en fait sur RS232 seu- 
le. 


QCKE il s’agit d’un double POKE ou poke sur deux octets. 


DEEK double PEEK . Est à DOKE ce que PEEK est à POKE (prononcez cette prhase à 
haute et intellisible voix, le plus vite possible * 


CMP Go Maschire Programme. GMP correspond à CALLM£400 


WRLTE ladr.hagr ngmfichiers 
analogue à W sous UT. permet notament de charger des images simplement sous ba- 
sic 


* Y. 4 
il s'agit des fonctions INCRease et DECRease , en français incrémenter et décré- 
menter . Cela évite essentiellement de faire des : 
variables variable + { ----\ [NCR 
ou var=var-! --) DECR 


BUTTON fera l'objet d'un prochain article. 


Fr: ai ; à . F Et: 
1001100! : A CHACUN SON LANGAGE 


!_ permet d'ecrire une remarque mais le mot REX n'apparait pas dans les Listings 


WAITSP WAÏT for SPace analogue au traditionnel CALLM£D6DA 
abréviation w 
rq: attention, si w 100 ----->WAÏITTIME 100. 


PAUSE comme la traduction française se suffit à elle-mème, j n'insiste pas. si 
vous ne comprenez pas la signification demandez à un Corse : 


W, [al 
abréviation W? (attention w? = WAITSP) 
attend la £in de l'impression pour poursuivre, 


ITOA valeur #,variales 
met dans la variable "variables" une chaine dont les caractères représentent le 
nombre “valeur#", 


FGI active les routines FGT. FGT représentant environ 30 commandes fera l'objet, 
probablement, d'articles speciaux. 


CLEAN clean en mode graphique équivaut au HOME du mode texte 
CLEAN n avec ns n'mode équivaut à clean mode n 


charge depuis le basic un programme en LM 
fonctionne également sur der et kK7. Peut également servir à charger des images. 


EXEC" fllenamess" charge et execute un pgm en LH. 


RQ : RMP et EXEC supporte Le nom abreviés avec * 
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LA CITIZEN 120OD 
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Cette iaprisante constitue un investissement raisonnable pour un périphérique du DA 
et présente un bon rapport prix prestation; en effet pour Z2000FTTC vous avez une 
isprisante garantie 2 ans coæpatipble EPSON et 18M avec au choix une interface série o: 
parallèle. 


Elle isprise en qualité inforsatique à 120cps; 
eèn qualité courrier à 25 cps; 

L'alimentation en papier est fournie en friction et traction; 

Les caractères sont téléchargeables; 

Tête d'iapression à 9 aiguilles; 

Ruban d'impression spécifique cartouche; 

Dimensions (LePsH on am) : 386+2a0+90.5; 

Poids : 3,7 kg; 

lapression en négatif; 

Détection de fin de papier; 

Alimentation papier possible par le bas. 


Je ne connais pas dans le détail les caractéristiques des iœprisantes EPSON ©: 
compatibles style Mannesaan Talilly que possèdent beaucoup de DAlstes eals apparemsent el: 
fonctionne avec les fichiers controls développés sur d'autres imprimantes é 
Ccarctéristiques identiques. 


L'intérêt de cette nouvelle aachine, hormis son prix et sa garantie réside dans | 
possibilité d'utiliser les caractères grahiques ou spécifiques IBM, je veux parler dé. 
Caractères ASCII au delà de 127 décimal ou 7F hexa. En effet la norme IBM inclus dé 
caractères de l'alphabet grec( alpha, bétha, etc...), des signes aatnéeaatiques tels qu: 
(plus ou soins, racine carrée, intégrale, intini, 1/2, 1/4), et de sysboles graphique 
permettant de réaliser des Cadres en siaple ou double trait, des traits torts er de 
Caractères nationaux moins liaités qu'en EFSUN. En fait nous possédons là une Épson et ur. 
BH à la fois. À vrai dire j'ai une idée sur la façon de le taire mais je ne l'ai ps 
encore mis en pratique. 


11 est possible de sélectionner les caractères avec des micro-switch ou pa 
programmation conme avec les matériels précédents ét dans une mème utilisation de mixe 
les différents jeux de caractère EPSON et 18h. 
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Voici le début d'une série d'articles présentés par Mr. 
Alain IMMER sur les automates programmables, cer peut âtre 
ne le savez vous pas mais plusieurs adhérents se servent du 
DAI pour piloter ces machines. 


Certains programmes légèrements modifiés, tels que notre 
traitement de texte DAIWOROSTAR, pour créer, éditer, 
modifier, conserver, des programmes, ou des macros 


instructions préprogrammées pour ces automates. 


= t sa 


Un système automatisé se décompose en deux parties indépendantes: 


-La partie opérative est le processus physique à automatiser. 


“La partie conmande est l'automatisme qui en fonction des "ENTRÉES" (inforsations 
externes venant de la partie opèrstive, consignes extèrieures, etc...) élabore en "SORTIE" 
des ordres destinés à la partie opèrative ou à des éléments extérieurs. 
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OU PROCESSUS A AUTOMATISER 
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Les autosates prograasables sont des équipements électroniques à Cablage Interne 
indépendant du processus à cossander (harduare). L'autosate prograasable est adapté à la 
sachine ou à l'installation à cossander au soyen d'un programne qui défini le sode ce 
déroulesent des opérations souhaité (softuvare) at d'un câblage direct entre les élésents 


d'entrée et de sortie de l'autosate. Les éléments d'entrée sont par exesaple des 
auxiliaires de commande, des contacts de fin de course, des détecteurs de proximité sal: 
aussi des tensions analogiques Ou des ésetteurs de courant. Les contacteurs, 


électrovannes, dispositifs de couplage, laspes etc. sont des éléments de sortie. 

Un autosate programmable devient un équipement spécifique une fois doté d'un 
progranse et couplé avec des éléments d'entrée et de sortie. Pour que l'asutosste puisse 
travailler, le prograanme doit être déposé dans une mémoire interne de programme. En 
général on utilise comme séèésoires interne de progrause des mémoires à seel-conducteurs. 
Selon le type de mésoire Interne de prograame on distingue les automates à programmation 
libre et les automates à prograssation interchangeable. 


schèsa 2 
CARACTERISTIQUES 
Entrées/Sorties Logiques 256 
Bits internes 640 
Branches GRAFCET 64 
Étapes GRAFCET/Branche : 99 
Temporisateurs 96 de 0.1 à 990 secondes 
Compleurs-décompteurs 32 de O0 à 9999, possibihté 65 535 
Catendrier Année, Jour, Semaine, Mois, 
Heure, Minute, Seconde 
Registres à décalage 16 
Capacité programme 3200 pas max. par moduiarité de 600 pas 
Temps d'exécution typique : 8 ms pour 1 000 pas 
Capacité de données 16384 mots 
Sauvegarde des données Oui 
Langages Littérai 
Relais 
Gratcet 
Traitements Logique 
Calcul 
Sur mots et groupes de mots 
Fonctions spéciales Oui 
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_|- aa sont équipés d'une mémoire vive (RAM ou 
EEPROM ) dans laquelle un progranne peut être introduit sans dispositif particulier au 
moyen d'une console de programsation. Celle-ci permet aussi de lire un progranne déja 
introduit. La mémoire vive perd son programme en cas de chute de tension æais ceci peut 
être évité grâce à une batterie-taepon. . 


2 t sont équipés d'une séaolre 
morte(PROM ou EPROM) dans qui doit être échangée en cas de sodification de programme. Les 
mémoires EPROM peuvent être effacées par des rayons UV et être ensuite reprograsmées. Une 
fois programmées les mémoires PROM ne peuvent plus Btre modifiées. Si l'on veut procéder à 
des modifications, 11 faut progranser une nouvelle sésoire PROH qui prendra la place de 
l'ancienne. 


bummmmmmmmmmmmmmmmmmmmmmmmmmm mm mm mm CP + 
!Type de nésoire lEffacement !Frogramaation !En cas de coupure de courant! 
! ! ! Île contenu de la mémoire est! 
CR CERCLE mémo me CELLELLLELLLE CELELELLELLLE ELLE] + 
!RAM Randos Access Menory ! ! ! ! 
! Ménolre à acces sélectif !'Electrique lÉlectrique ! Perdu ! 
! liéaoire vive ! ! U | 
! Read-Urite Memory ! ! ! ! 
mm mm mm mm mm mm mn dmmmmmmmmmmmn pomme pmmmmmmmmmmmm mm mm mm mm + 
tROM Read Only Memory ‘Impossible Par masque ! Maintenu ! 
! länoire morte ! {lors de la 2 ! 
! ! ‘fabrication ! ! 
tusonsesssse mms + t-sssssss ss. ! 
!PROM Progransable ROM ! ! 1 ! 
f Mésoire norte ! ! ! ! 
; progranaable { £ { ! 
buusesssesssssssssssssessesssse LELLELELLLLEE LES tessosssssss.s + ! 
!EPROM Erasable PROM ! ! ! ! 
, Hésoire norte effaçable! ! ! ! 
! !Par rayons UV ! Electrique ! ! 
!RPRON Reprogramnable PROM ! ! ! ! 
f Mémoire sorte ! ! ! ! 
! reprograsssble ; ! ! ! 
éommnmmmmmmmm mm mm nn émet ! ! 
!EPRONM Electrically Erasable ! ! ! ! 
! ROM ! ! ! ! 
! Héaoire morte à ! ! ! ! 
t effacement électrique ! ! ! ! 
, lElectrique 4 ! ! 
tEAROM Electrically Alterable ! ! ! ! 
! ROM ! ! H ! 
! Mémoire vive et ! ! L ( 
! sésoire sorte ! 1 ! ! 
L 


0 
. 
, 
‘ 
. 
0 
n 
‘ 
ol 
0 
, 
0 
‘ 
. 
ol 
0 
‘ 
0 
nl 
. 
. 
. 
, 
, 
* 
, 
' 
, 
+ 


émmmmmmmmmmmm mm mm mm mm mm mn mn nm tummmmmmmmmmmmm 


st À 0 chanté] haut cé || 
19011001 : A CHACUN SON LANGAGE 


= urquo "automat r le? 
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Depuis toujours l'homse à essayé et réussi À se faire aider dans ses téches ps 
des nécanisaes siaples d'abord puis par des mécanismes autosatisgés ensuite. 


Cas dernières années ont vu apparaitre des automatisses prograamés 
substituant de plus en plus aux automatisnes cablés traditionnels. Dans le dona! 


Industriel les AUTOMATES PROGRAMMABLES INDUSTRIELS ( A.P.L ou APL } se sont nmassivener 


implantés. 


Dans un prenier teaps des API siaples ont été Iaplantés, un par par machine © 
général. Dans un deuxième tosps des API beaucoup plus puissants ont été laplantés 
assurant même l'automatisation de plusieurs machines. Ce choix à posé de gros problème 
(lourdeur des progrannes, mise au point conplexe, maintenance difficile, panne général 
des Installations en cas de panne de l'API, etc). A l'heure actuelle des structure 
différentes sont mises en place, des réseaux d'API: 

-un API par aachine à automatiser; 
{ voir schées 2 } 
-un API et/ou un ordinateur superviseur relié aux premiers. 


ci Aulormal: 
supervision er, 
Interface de 
et" communication 


Automate 


SYCOWAY 
- Réseau local industriel fédérateur 
des produits Alspa. 

- Jusqu'à 64 abonnés par tronçon de 2 km. > “ 
- Temps d'échange put (vitesse 1 million’ des 
bits par seconde). : ; à 


Ce systBasg permettant la gestion de la production élimine beaucoup d* 
inconvénients rencontrés dans la seconde structure. 
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Par rapport à un ordinateur par exesple l'API est d'un côut relativement réduit 
(on-en trouve à 2000F environ avec 20 entrées/sorties) et évaluable à l'avance. Sous un 
encaosbresent réduit 11 permet de traiter des problômes simples de logique combinatoire ou 
séquentielle mais aussi analogiques sinples. 


Associé à une console l'API permet : 
-l'élsboration de programmes suite à une étude d'automatisses; 
-de taper les progranaes au clavier et de les stocker dans des sodules 
sémoire (RAM, REPROM, EEPROM ), ou sur K7 (la disquette n'est pas trés prisée en aliieu 
industriel; 


-de nodifier ou resplacer les progransmes avec des sodes d'insertion, 
suppression, sodification; 


-la programmation est possible hors ligne; 
-la sinulation est possible hors ligne. 


Le tenps de aise en oeuvre est pratiquement réduit à : 
-l'installation de l'API sur le site avec son alisentation; 
“la connexion des capteurs et actionneurs; 
-l'{ntroduction du programme élaboré hors ligne par K7 ou par enfichage 
d'un module aéaoire contenant le prograane. 
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Nous ne pouvons plus raisonner automatismes sans lgnorer l'existence des API. 
Îls ne sont sans doute pas une réponse générale à tous les problèmes posés. Aussi pour 
aider l'automaticien à faire un choix approprié l'ADEPA (Agence pour le DEveloppement de 
la Production Autosatisée) a édité des TECHMOGUIDES; 11 est ainsi possible de choisir 
entre par exeapie une logique de commande tout pneumatique et un API ou une logique de 
cosnande électrique et un API. 


De plus en plus les API aodernes sont progranaables en langage automaticien 
llttéral où graphique GRAFCET (GRAphe de Cossande Etape Transition) et incorporent des 
composants les rendants de plus en plus intelligents: 

“Carte de Calcul avec son propre processeur; 

carte de cosptage; 

-carte de couplage à un réseau; 

“interfaces d'antrées/sorties analogiques; 

-cartes d'axes permettant d'asservir analogiquement un aouvesent en position}; 

-des systèmes de test et d'auto-diagnostic. 


-4-R A ’ 


A l'heure actuelle on connait mal la fiabilité des API. Dans les gros systèmes 
autonatisés ou l'iapératif financier n'est pas priaordial on palie ce risque (par exeaplie 
dans les centrales nucléaires par redondance - triplement du nonbre d'automates). Dans les 
installations industrielles traditionnelles comportant des API, bien que la fiabilité soit 
reconnue bonne, pour la sécurité des personnes et des matériels les organismes de séècuritè 
laposent la mise en place de commandes manuelles cablées parallèlement à la logique de 
l'API (cycles de dégagement, etc). 
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production: 


C'est dans les niveaux | et 11 (moyens de production et de leur supervision) que l'on 
rencontre des produits industriels commandant et contrôlant des robots, des machines à 
commande numérique, des sachines individuelles, aussi bien que des systèses de 
manutention. 

Relilées entre elles par des réseaux locaux de cossunication, les machines, 
supervisées par des API de haut de ganne constituent alors des ilots d'automatisation sous 
forme d'atellers flexibles d'usinage et de systèmes ou chaines d'asseablage automatiques. 

Ces deux niveaux sont les domaines de la "PRODUCTIQUE”". 

En s'élevant vers les niveaux III et IV, on aborde la gestion de la production puis 
la gestion giobale: on a alors rejoint le dosaine de l'inforsatique. 
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S- Le langage GRAFCET ; 


C'èst un outil graphique permettant de décrire simplement et sans ambiguité le 
fonctionnement d'un système automatisé. Il servira aux différents stades de la vie du 
syatème: avant projet, étude, réalisation, mise au point, maintenance. || se veut un outl1 
siaple à la porté de tout le monde. C'est un outil de dialogue entre tous les partenaires 
concourants à la bonne sarche d'un système (ingénieurs, techniciens, cableurs, dépanneurs, 


cpérateurs). 
Exenple de GRAFCET: 


On considère un chariot C qui peut se déplacer sur des rails de guidage dans les deux 
sens de marche gauche (G) et droite (D) entre deux positions a et b correspondant à des 
postes de travail. Le chariot étant au repos au poste a, on veut, lorsque la consigne lui 
en est donnée (nm), qu'il effectue un aller et retour a b a. L'état de repos du chariot est 
visualisé par un voyant (V). 
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1-Exercice No 1: 


On considère un chariot C qui peut se déplacer sur des ralls de guidage dans les deux 
sens de sarche gauche (G) et droite (D) entre deux positions à et b correspondants à des 
postes de travail. Le chariot étant au repos au poste à, on veut, lorsque la consigne lui 
en est donnée (a), qu'il effectue un aller et retour à b a. L'état de repos du chariot est 
visualisé (V). 


- Schéss - 


On considère le aûse chariot C que ci-dessus. Par contre la consigne de départ (æ) 
subit une sodification de définition. En effet si le Bp = reste coincé, on veut que Île 
chariot n'effectue qu'un seul aller et retour. 


Le déplacement du chariot est assuré par un vérin coemandé par un distributeur à deux 
positions dont le tiroir est rappelé par un ressort dans l'une de ces positions en 
l'absence de signal de cossande (VH), 


Le déplacement du chariot est assuré par un moteur électrique à deux sens de aarche 
(G et D). Le soteur est protégé par un carter. Si ce carter est ouvert (c conpléènmenté), le 
moteur doit ismédiatement être arrêté; il peut redésarrer dès que le carter est fermé. Un 
voyant d'alarme (AL) signale l'ouverture du carter en court de cycle. Enfin on doit 
s'assurer qu'en cas de panne de l'autosatisse les deux sens de marche (D et G) ne sont pas 
siaultanément commandés. 


1-Exercice No 3: 

Un chariot C peut se déplacer sur des rails de guidage dans les deux sens de aarche 
gauche (G) et droite (D) entre deux positions à et b correspondants à des postes de 
travail. Le chariot étant au repos au poste à, on veut, lorsque la consigne lui en est 
donnée (d), qu'il se charge de poudre (Cgt). Lorsque ce chargesent est terminé (feg), 1i 
se déplace jusqu'à la position b où son déchargement (Dgt) est effectué dans un réciplent 
R. Le déchargement étant terminé (fdg), le chariot revient en position initiale a où {1 
s'arrôte. D'autre part le récipient Rest aœis on place (MpR) pendant que le chariot se 
dirige vers b. la fin de l'opération de aise en place du récipient est signalèe par une 
inforaation (rp) 


1-Exercice No 4: 
Un chariot C (comsandé par un automatisme défini par ailleurs) effectue des aller et 
retour entre deux postes a et b repérés par des contacts de fin de course de mômes noms. 
On place un contact Interaédiaire h sur son trajet entre a et b et on desire qu'un 
automatisme alluse une laepe L placée sur le chariot (cette laspe peut syebollser le 
travail d'un outil, une opération particulière à effectuer sur le contenu du chariot, 
etc...) chaque fois que celui-ci se dirige vers h. : | 


1-Exercice No S: 

On considère 2 chariots C1 etC2 comaandés indépendamment par des moteurs électriquas 
à deux sens de sarche gauche (Gi pour Ci et G2 pour C2) et droite (D1 pour Ci et 02 pour 
C2). Chacun de ces chariots peut se deplacer entre deux positions (al et bl pour C1) et 
(a2 et b2 pour C2) repérées par des contacts de fin de course de mène nons. Las deux 
chariots étant au repos aux postes (al pour C1 et a2 pour C2) on veut, lorsque la 
consigne est donnée (bouton poussoir =), qu'ils effectuent siaultanésent un aller et 
retour (al- bi-ai pour C1) et (a2-b2-a2 pour C2). L'action sur m n'a aucun értiut s1 les 
deux chariots ne sont pas tous les deux au repos 
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Inmfsrmatiosnsschrift des 
DAI-Clubs FRANKEN 


Kontaktadressen: 


Michael Hôhn (Softwaremanagment) 
Lôhestr. 57 
8520 ERLANGEN 


Thomas Häckl (Softwarebibliothek) 
Willigisstr. 3 
8500 NGRNBERG 50 


Harald Hofmann (Hardware) 
fettersteinstr. 14 
8500 NOüRNBERG 50 


Hardy Strobel (Hardware, Reparatur) 
Neuselsbrunn 51 
8500 NGRNBERG 50 


Dieses Informationsblatt ist für alle "ôbriggebliebenen" DAI-Fans gedacht. Der 
DAI-Club Deutschland ist tot, aber £für alle DAI-Fans gibt es inmmer noch den 
DAI-INFO-POOL. 


die Eunktioniert er: 

Der Kontakt der Mitglieder unterelnander erfolgt durch Telefon oder Brief- 
kontakt. Jeder DAI-Fan kann mitmachen. Es gibt keinen Mitgliedsbeitrag!t Eine 
Clubzeitschri£t wird auf Disketten (sog. Tauschdisketten) von Fan zu Fan 
geschickt (z.2t. sind 3 Stück im Umlauf). 


Jetzt die wichtigsten Sachen für Euch! 
JEDE Software ist FREI (Kostenlos)! 
JEDER kann Software herschicken und Software bekomsen. 


Problemprogramme kônnen 2.8. auf die Tauschdisketten auéfgenommen werden, zum 
knacken oder verbessern! 


Software ist erhältlich auf: 
AUDIOCASSETTEN, MDCR, INDATA-DOS, PRODATA-D0S, KENDOS, COM-D08, 
NR-D0S, MS-D0S! 


Die Bibliothek uméaët zur Zeit: ca. 7MByte DAI-Softuare (sortiert auf COM-DOS). 
Noch einmal ca. SMByte unsortierte Software! 


Auch Hardvaremäôiqg hat sich am DAI sehr viel getan. 


Zu betonen sind: 
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ENCU-Karte: 96k ROM (2200 neue BASIC-Befehle}, 32k stat. RAM, 8k stat. 
AcbeitsRAM, COM-D0S Interface! 


Die ENCU-Karte ist die Voraussetzung für alle beschriebenen Anvendungen! 


: (Steuerung erfolgt durch die BNCU), wird benutzt 2.8. als 
RAM-DISK, als Grafikspeicher, als Datenspeicher, oder unter CP/M mit *C*. Die 
Hardware ist vorgesehen, bis 8MByte RAM zu vervalteni!! 


CENTRONICS-Interface: wird durch BASIC vervaltet, RS232 bleibt f£rei., 


verbessertes BASIC V1.2, äbrigens, alle alten BASIC (ml-Programme) 
laufen auch auf dem "neuen" DAI. Das neue BASIC (BSNCUBASIC) ist aufvärts- 
kompatibel. 


EPROMMER; UNIPROM-1, 2758-27256, Nachladeprograms, DCE-Bus 
EPROMMER: NR-1, 2716-27256, BNCUBASIC, Anschlué an BNCU-Karte. 
EPROMMER; NR-2, 2732-27512, BNCUBASIC, Anschlu8 an BNCU-Karte 


COM-00$; £Éür Ploppys von COMMODORE VC1541 / VC1570 /, VC1571 ca. 12000-15000 
Baud, 168k/Seite. (Sektorvervaltet). - 


NR-00$; Nachträglicher Einbau in die VC1541, ca. 80000 Baud, L41k/Seite, 
(Bitvervaltet}. 


HINSELS: COM-D0S + NR-D0S laufen vollständig im EPROM, benctigen deshalb keinen 
Platz des DAI-RAM's (von dem ja nie genug vorhanden ist). 


EXT, Tastatur: COMMODORE PC610, Funktionstasten, Zehnerfeld, 4-£ach belegt, ait 
2k-RAM frei programmierbar. 


1/10 Sekunden bis Jahre, Aufrufbar durch BNCUBASIC, wird 
automatisch verwendet bei Anschluë von MS-D0S. 


= 1 Zveitrechner, Z80H mit 9.216MHz, 64k stat.RAM (120ns) (no 
WAITzyklus), 3j2k ausblendbares ROM, CP/M V2.2, jede Software unter CP/M V2.2 
kann vervwendet werden, Zz.B. TURBO-PASCAL, WORDSTAR usw., EPROM-Disk für die 
wichtigsten CP/M Tools, AnschluB an BNCU, Gbertragungsspeed: 4*MODE6 Bilder pro 
sek., Steuerung automatisch durch BNCU oder über BNCUBASIC, der DAI wird als 
intelligenter grafischer Rechner verwendet. 


MS-D0S Floppykarte: Anschlu8 an DAIEXZ80H, max, 4 Floppys, 842k/Diskette, 
Trans£errate DAÏEX2Z80H <> MS-DOS Karte: 250000 Baud, Transéerrate DAÏ <> MS-D0S 
Karte: 2>196000Baud, Anschlu8 von 5 1/4 oder 3 1/2, 6ms Step, 2* 80 (33) Track, 
Lesbar sind MS-D0S Disketten von IBM und Co., ATARI ST, SCHNEIDER, NDR- 
Kleïncomputer usw. 

BSeispiel: Das Schreiben von 32k vom DAI auf MS-D0S: ca. Z2.2sec (inkl. VERIFY)! 
Lesen von 32k von MS-D0S auf DAI: Ca. l.9sec.t z.2t. sind ca. 16MByte CP/M V2.2 
Software verfügbar. 


: Das MS-D0S wird immer kurzzeitig, vom DAI in das RAM der 
DAIEXZ80H-Karte übertragen ca. 1/4 sec. 
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2* AUDIOCASSETTENREKORDER, 4% MDCR oder 2% DOPPELFLOPPY INDATA oder 2* 
DOPPELFLOPPY PRODATA, 4® VC1541 (1570/1571) oder bis zu 16* NR-DOS und 4 
COM-D08, bis zu 8MByte dyn. RAM, 4* MS-DO0S, 1 EPROMMER NR-1 oder NR-2, 1 ext, 
Tastatur, 1l* ECHTZEITUHR. 

Es gibt natärlich noch mehr, z.8. auch Platinen für RGB, 80 Zeichenkarte usvw. 


Diese Hardvareprojekte kann sich jeder selbst aufbauen (oder aufbauen lassen), 
die Platinen werden von verschiedenen DAI-Fans selbst hergestellt und kosten 
max. 10DM-35DM (inkl. Anleitungen und Porto). 


Dokumentationen (Anleitungen) sind als Druckerfiles auf jedem obengenannten 
Speichermedium erhältlich (kostenlos). 


DAI-Fans meldet euchli 


geschrieben: )STRAGIC (Bardy Strobel) 
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Die Software zum Antreiben er Fisppy befindet sich wie bei der MOCS in einem 
EPEM im àdressenbereich F090-F7FF, Die Software ist someit ”æin O0S, da die UT 
1941 œin I3KE ODOS-ROM und 2KB ReM in Gerit besitzt. Allerdings merder zur 
énsteuers des eigent'ichen D0S einiga Sefenlæ (neben Cer LORC/5/E-Liçir: 
benôtst, die auf ‘NCJ’-Basis (New-Command-Unit, sishe Beschreibung in disser 
Ausgabe aufgebaut sind, d.h., die neuen Safehie sind gleichwer!ig zu den 
Standarctérehlen und - Kénnen wie diese auch in Basic-Progrsmmen #inçegeben 
werden. 


Diese Séschreibung dient in erster Linie dazu, diese neuen Eefshle 24 erKiiren, 
da die MégiichKeiten des O0S (Sequentieile, Relative und Random-Access-Filzs, 
Blocklesen/schreiben etc.) im Handbuch (bei mir ein Deutsches und ain Zng- 
lisches !) ausfuehriich beschrieben sind. Zusätziich gigt es ja auch noch cas 
‘Floppy-Buch”. £inige Tricks und Prigramme werden bei Gelegenheit eräffentlicht, 


Die Scfiware mit den NCU-gesteuerten Befehlen (es handelt sich alierdings 5m 
eine Mini-NCU-Version, die nur die wichtigsten Dinçge Seinhaltet) ist durch die 
an den DCE-Bus Ggehängte Reset-Logik sofort batriebsbereit, Sein Reset wird dia 
NCU initialisiert, der - Befehl DISK (s.u.) durchgefuehrt, dis Baudrate wird neu 
gesatit fnur interessant für Besitzer von .Druckerr mit Baugrate CHFFFS ai) 
und die Fenlerrautine auf ‘Rückkehr i:s Sasic’ gesteilt (durch én£ern 14t Le: 
Disk-Fehlermeidungen ‘eine RückkKahr in verschiecene MP-Svstame wie Ss5ermbier 
môgiich. Die Pückkehradresse muf in cie Leiden Bytes HONC£'CF éingeragen 
werden). 

Die asen Befehle sind teiïliweise ‘on Commodore übernemmen (179 bis auf [INPUT 


auch besseri, teilweise sind aber auch ganz nous Sefsrls daoei, dis as 
Arbeiten deutliich erleichtern : 


CLS PEN INPUT TOT# 
CI5r CLOSE GETA 

CAS STATUS MGETA 

DIR QON.€0F PRIMT# Ckürz: PM) 
GP CO PUF 

1F MPUT 


5) CL5 ‘aîlear Screen) lôüscht den Si!éschirm, 


5: CISK schaltet die LOAD/SALE-Vectoren auf Diskettenbetrieb um und legt cie 
Standard-Primäradresse auf 3. Die Primäradresse ist die in der Floppy harduar 
mässij festçelègte Geritenummer, mit der alle an den Rechner und gine Leituny 
angeschicssenen Geite unterschiéden w“erien. Durch unterschiediiche Frimarac- 
ressen Kônnen zwei Floppys ocer Cmmodore-Drucker etc, angeschisssen werden, 
Dadurch, dañ eine Standard-Primädr. <cefiniert swrde, ist es nicht wis 23; 
Lcrmodore nôtig, diese Adresse bei LORD/3RUE 9.5., wie im Mardbuch beschrisban, 
sniugeben. Ein Programm/UT-File/Daten 2.3, wird nls2 immer ‘cn dem SGerai 
gelesen 19. geschrieben), dessen Primèdr in dem Syte #O0CS steht, Der Zeran! 
DISK léscht ausserdam noch die QN,E0F-Cintragung {s.u.\, 


57 CR$ schaîtat 21e Vectoren wieder auf Cassettenbetrieb. 


GO DER lister die Director: aué, Im GSegensatz zu Commodore mul dis Dir, niuat 
ais Basicprogramm jeladen und dann Gelistet werden, sondern air3 uamitlé bar 
ausgedruckt, Der Ausdrucr “ann aber «wie ain Listing mit Soace/6reak gestccot 
cder aogebrochen werden, Dis von Commodore vorgesehere Môglichieit, nur besti-r- 
te Name” asufiulisten, wird durch anhingen aires éinsgréchenden 5trings genutizt 
(wie LO0 / LORD *.,."5 : 

CIR 

DIR “5G+" Calles, was mit 5G anfingt. Die ‘Jorer' #7 gibt #3 jérarell Dei 

Fiiénemen 

Der Oif-Bafent holt sich die Cirectory von der Etsndard-Primagr (9, 


e) CMP (Go Maschine Program) 18t #ine Mbkiriung fêr ‘CALLM m400', Ca viele 


Utilities ksi #409 beginnen. 
c Hardy Strobc! 
NX (Ce ticuselsrurs 51 
4 ER HP 2 4 


Cr Plioptonss € 
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#) IF ist Kein neuer Befehl, aber notgedrungenerweise muB er neuy interpretiert 
werden. Ein Abfallprodukt : Bei ‘IF ... THEN ...’ Kann das THEN entfallen. Hier 
muê noch gesagt werden, daB alle BSefehle natürlich nur dann laufen, wenn man 
die Disk-NCU im Rechner hat. Heitergabe von Programmen an Nicht-Floppy-Besitzer 
mit oben aufgefiührten Befehlen ausser IF” ist ohne MP-Zusatz (spezielle NCU) 
nicht môglich. Da es aber. ausser CLS,GMP, PRINT #0 und PUT#O reine Disk-Sefehie 
sind, dûrfte dies Kein Problem sein. 


9 Der Befehl OPEN hat ähnlich zu Commodore die Syntax 
OPEN Kanal Primâdr SekAdr 
0. OPEN Kanal Primâdr SekAdr ‘*.,..° 


Die BSedeutung der Sekundiradresse steht im Handbuch (man kann %6 Files auf 
einmal bearbeiten); die Kanalnummer ist die Nummer, mit der man bei den 
Befehien, die oben in der 3. Spalte stehen, das gewünschte Gerät (mit Primidr 
und SekAdr) anspricht. Primâdr und SekAdr werden ja durch den OPEN-Befeh| 
definiert, die physikalischen Adressen interessieren danach nicht mehr (Ausnahme 
sind die Blockschreib/lese-Kommandos, s. Handbuch). Im Gegensatz zu Commodore 
muë die Kanainr zwischen 1 und 4 liegen, d.h., man kann 5-6 Files auf einmal 
bearbeiten (zusätlich noch einen LOAO/SAE—Vorgang und DIR). Jeder geôffnete 
Kanal muB wieder mit CLOSE geschiossen werden. Geschieht dies nicht, weil 1.8. 
ein Basic-Fehler auftratt, so zeigt die Floppy dies durch eine LED an (ausser 
SekAdr=13 und nach STATUS), Bei dem Versuch, den glesichen Kanal nochmals zu 
ôffnen, erscheint “INVALID NUMBER’ und der alte Kanal wird vorsichtshalber 
automatisch geschlossen. Bei OPEN kann eine beliebige Primèdr zwischen 0-15 
gewihlt werden. Existiert dieses Gerät nicht oder ist es nicht eingeschaltet 
(dies gilt-auch für die implizierte Adresse 3 bei LOAD/SAVE 0.3.), 30 gibt es 
die Fehlermeldung ’IMVALID DEVICE’ (Commodore: "DEVICE NOT PRESENT‘). 


h) Mit CLOSE  Kanal’ werden die einzeln geôffneten Kanile wieder geschicssen. 
Wie im Handbuch beschrieben, bedeutet ein Schiiessen der SekAcr IS ein 
Schliessen aller Files in der Floppy. Deshalb den ‘’Kommandokanal 15° àa13 
letzten Schliessen. Diese Eigenschaft nutzt "CLOSE 0’ aus : CLOSE © schliesst 
im Rachner alle Kanäile und die (nicht notwendigerwei se geôfrnete) SekAdr 15 des 
Standard-Primigr-Gerites. Ist aiso nur die Floppy bei alien OPEN's angesorachen 
worden, reicht ein CLOSE 0 Csonst nicht !). 

Wie bei den anderen.Kanalabhängigen Befehlen ausser OPEN gilt, da, wenn de” 
Kanal nicht ceôffnet wurde. der Basic-Fehler ‘IMALID NMMBER’ erscheint, 


j) STATUS ist eine Abkürzung der im Hanébuch beschriebenen Prozedur, sich eine 
eventl, vorhandene Fehlermeldung ausdrucken zu lassen. STATUS druckt die 
Fehiermeldung (bzw. OK) auf den Bildschirm und/oder Drucker. 


K) ‘ON.EOF” und ‘OM.EOF z° sind eine Môglichkeit, beim Erreichen des Filsendes 
beim Lesen von Files zu einer bestimmten Zeile zu springen. Bei Commogore muë 
itindig ein Flag abgetestet werden (es stent in der Adresse N0D07), hier wird 
automatisch der INPUTH,GETH,MGET# oder TEXTH Befehl abgebrochen und ein ent- 
serechendes GOTO durchgeführt, Mit ON.EOF ohne Zeilennummer muñ diese Funtion 
wieder abgeschaltet werden (auch der DISK-Sefehl führt dies aus), da dies ir 
der Hini-NMCU—ersion nicht automatisch geschehen kann. Existiart beim ‘Erseichen' 
von EDF (genauer: es wird versucht, das erste Syte nach £9F biw. CHOD97Jaû 2v 
lesen) die Zeile nicht bzw. ist die Funktion ausgeschaltet oder tritt der 
Fahler beim Ausfihren ainer  Kommandozeile auf, so erscheint der Basic-Fehier 
“QUT OF OATA* und der Kanal wird autom. geschlossen. Bei ON.£0F-Goto bleibt der 
Kanal cffen, 


11 COM *...* ist eine Môglichreit, die umstindiiche Commoder+-Méthode 21 
umgéhen, einfache Eefehle wie Formatieren, Lôschen, Rename etc. an die Ficppy 
iu geben. 8+1 Commodore mu die KommandoSekAdr geffnet (OPEN « 3 19), der 
Sæfehi Gedruckt CPRINTH x;°,,,°) und der Kanal x wisder geschlossen war éen 
CÉLOSE x). Bei den Komplizierteren Sefehlen ist dies meistens ebenfalls nôtis, 
aver C:+ Sefehle, die ‘schneil mal eben” gegeben werden missen, sind so 
wésentlich éinfacher, 


HP 372 


32 


m TEXT# Kanal 

Hiermit werden Bytes aus dem (Lese-geôffneten) Kanal gelesen und direkt 
ausgegeben (je nach Zustand von C#131] auf Bildschirm, Drucker etc.). Die 
Ausgabe endet mit Erreichen eines CHR$(13), welches nicht mehr ausgegeben wird. 
Mit diesem Befehl kann schnell überblickt werden, ob eine (Text-) Catei in 
Ordnung ist oder es wird ein ‘’Gebufferter” Text gedruckt. 


n) INPUT Kanal; variablen, ... 
Dies entspricht einem INPUT von Zahlen und Strings von der Diskette. Der INPUT 
erfolgt (aus EPROM-Platzmangel) so, daB eine Zeile bis zum CR gelesen und 
ausgedruckt wird und dann ein ‘’normaler’ INPUT erfolgt. ‘SÛME INPUT IGNORED” 
wird unterdrückt, ein Nachladen von Text bei Zeichenmangel erfolgt automatisch, 
Bei SYNTAX ERROR o.i. wird das Program abgebrochen, die Kanäie bieiben 
geôffnet. Der Nachteil dieser Methode ‘über den Bildschirm’ ist, daë der 
Fehlerkanal nicht so leicht wie im Handbuch gelesen werden kann (sinnvoll nur 
mit GET). Der Vorteil : Man Kann durch INPUTH 03 .., ein normales INPUT über 
die Tastatur durchführen und Kann somit die Daten leicht wahlweise direkt oder 
abgespeichert eingeben/einlesen. In beiden Fillen sieht man die Eingabedaten 
auf dem Bildschirm. Ausserdem ist zu berücksichtigen, daë mit MPUTM/MGET 
Zahlenvariablen viel genauer und platzsparender gespeichert werden kännan. 

INPUT# N;8NZ ,NS (0) ‘ 

INPUT# SjE,TS,TR,SEC 


o) GET# Kanal; variablen, ... 
Es wird pro Variable je ein Byte gelesen und der Variablen entweder àal3 
Zahlenwert 0-2535 oder bei #—Variablen als 1-Zeichen-String zugewiesen. 

GETN LiAL,AH,H,H,H,AIS,A28 


) MGET# Kanal,Adr Anzahl! 
Mit MGET#H werden ‘’Anzahl” Bytes , gelesen und ab der angegebenen Adresse 
abgespeichert. Bei Eintreten von EOF steht in #0043/49, wieviele Bytes nicht 
gelesen wurden. Dieser Befehl signet sich hervorragend, um grôssere Datenmengen 
auf einmal zu lesen (da er gegenüber einzelnen GET#'s sehr schnell ist}, um 
unbenôtige Daten schnell zu überlesen und insbesondere beim Sektoren-Lesen 
(Block-Read) . 

MGETN 2,48350 #C000-48350 liest MODE 0-8i14 

MGET# N,493000 256 für Block-Read etc. 


Q PRINTH kanal; ..... (Daten wie bei PRINT, Eingabekürzel: P# Kanal:... 
Die Daten (Zahlen- und Textstrings) werden an den schreibgeéffneten Kanal 
gegeben und auf Diskette abgelegt. Optionen: Positive Zahlen erscheinen chne 
Vortlank, ein Komma zwischen den Daten bedeutet, daB ebenfal!s ein Komma 
ausgegeben wird; und als Bonus auch bei PUTN,MPUTMW : mit kKanal=0 werden die 
Daten nicht auf Disk, sondern an den Bildschirm 9.3, ausgegeben. VorElank- und 
Komma-Cption Kôénnen 59 auch allgemein genutzt werden. 

P# 2,"Daten:";P1,34 <= mit CHRS(13) als Abschluss 

P# 9,*Ohne Uorblank® ,N; 

PRINT 5,"B-R:2,0°,TR,SEC 


r) PUTM kKanal; ... 
PUTH druckt Strings wie der PRINTHY-Befehi, Zahlen werden allerdings 13 
CHRS() -Zeichen aufgefasñt, Komma und Semikolon haben Keine Bedeutung 

PUTH 2,Na,°4°,120,13 

PUT# 0,27,°€°,27,*°L008" 

PUTH N,LENTAS) ,AS 


5) MPUT# anal ,àdr ànzahl 
Schreiben von ‘Antahl'” Bytes ab Adresse. Wichtig für grosse Datenmengen wie 
Bildschirme etc. 
Trick: MPUTH x ,UARPTR(A) 4 sceichært Zahl platzsparend ab 
MGETN x ,VARPTR(,,,) 4 das Gegenstüch 


Weitere Anmerkungen : 
Der Fehler ‘TYPE x‘, 2.8, TYPE 1, tritt auf, wenn bei Ladebefehlsn wig LOSO, 
LORD, UT-R bei passendem Namen der Typ (Basic,Code,.Data) nicht paBt. 
Das Source-Listing und MP kann bei mir angefragt werden, 
Die Software ist eine Gemeinschaftproduktion von H.Steves (Bus-Ansteuerungs und 
mir (NCU, Séfehle). 

Heinrich Tegethofs 


SON LANGAGE 


Presentation du XBASIC 
Canal 7 :System Program Unit SPU va.1 (#58F434) 


Cette nouvelle version offre l'avantage ne n'utiliser que des 
commandes au format DAISASIC.De plus cet utilitaire n'occupe pas de 


place en AAM. 
Par ex. pour obtenir le nombre de lignes d’un programme BASIC, 1a 


taille du buffer texte,tabile des symboles,nombre de references 
etc....,la commence CALLM2000:CHECK est remplacee per PSTAT (c-a-d 


PAOGRAM STATUS) 


Passons en revue ces nouvelles commandes 


VLIST : permet d'obtenir la liste complete ou partielle des varisbles 
d'un programme BASIC,ainsi que les numeros de ligne ou elles sont 
utilisees s'il y à lieu. 
Syntaxe : VLIST +elc domaine de recherche [var], etc.... ou +elc 
signifie que trois options sont possibles. 

a) +E pour EDITER les ligne specifiees dans “domeine ce 
recherche” et contenant La veariesble “var”. 

b) +L pour LISTER ces lignes plutot qu'EOITER 

c) +C pour AFFICHER le numero de ligne en laissant une ligne 
libre pour rajouter des Commentaires.(sur un listing papier) 


Ex : VLIST +€ 1000-2000 VAR Edite toutes les lignes comprises 
entre (inclusivement) 1000 et 2000 contenant le variable VAR, 

VLIST liste toutes les variables contenues dans le programme 
BASIC, ainsi que les numeros de ligne ou elles apparaissent. 


QLIST : meme principe, mais cette fois-ci pour les references aux sauts 
de ligne (GOTO,GOSUB...) 

Syntaxe : QLIST +elc domaine de recherche [ ,numeros de ligne) 

Ex : QLIST +L 150 listera toutes les lignes faisant un saut à la 


ligne 150. 


FINO : voici une nouvelle commande tres utile qui permet de retrouver 
dans un programme BASIC toutes sortes ce donnees. 
Syntaxe : FIND +elc domaine de recherche type des donnees ,donnees,.. 
ou type de donnees = # valeur INT 

# valeur FPT 

# valeur HEXA 

“chaine de caracteres" 

F fonction BASIC 

C commande BASIC standard (DAIBASIC) 

NC nouvelle commande BASIC ( XBASIC) 


A CHACUN SON LANGAGE 


Ex : FINO +E C COLORT,C COLOAG editera toutes les lignes contenant 
les commandes COLORAT et COLORG. 

Cette commande permet tres simplememt de remplacer toutes les 
anciennes instructions du DAIBASIC qui possedent maintenant des 
variantes plus rapides ou plus simples (CLS,HOME par ex.).Ou bien de 
changer les couleurs de l'ecran,les arguments de PDL() etc.... 


FIND CANAL 4 AFFICHERA tous les numeros de ligne contenant des 
instructions relatives au ComD0S (canal 4 du XB8ASIC), 

FIND +E€ ALLNC EDITERA toutes les lignes contenant des nouvelles 
commandes XBASIC (ALL NEW COMMANDS) . 


VARNAME : permet de changer le nom de variables. 

Syntaxe : VARNAME ancien=nouveau domaine de recherche, . 

Ex : VARNAME NS=NOMS$S -1000,NS-NOMBRES 1001- changera la variable N$ 
en NOM$ de la premiere ligne a la ligne 1000 et en NOMBRES de la ligne 
1001 « la derniere ligne.(les variables doivent bien-sur etre de meme 


type). 


RAENUMBER : renumerote des lignes BASIC. 
Syntaxe : AENUMBER domaine de renumerotation OPTIONS nouvelle premiere 


ligne ,pas de numerotation (facultatif “#10 par defaut). 


Ex : RENUMSER NEW 10 renumerote tout le programme en commencant les 


nouveaux numeros à 10. 
RENUMBER 10-1000 NEW 10,20 renumerote les lignes 10 a 1000 en 


commencent les nouveaux numercs #8 10 avec un pas de 20. 


Variante :RAENUMSER domaine de renumerotation AOD (ou SUS) offset 
Ex : RAENUMBER 10-200 AO0 1000 renumerocte les lignes 10 a 200 en 
ajoutant 1000 a leur numero de ligne. 
RENUMBER 10000-12000 SUB 1000 renumerote les lignes 10000 à 
12000 en retranchant 1000 à leur numero de ligne. 
RENUMBSER domaine de renumerotation STEP nouvelle premiere 
ligne ,pas de numerotation (facultatif =10 par defaut). 

AENUMSER 1000-1500 STEP 1000 permet de renumeroter un 
sous-programme (par ex.) avec un pas constant à l'interieur d'un 
programme. 

Differents messages d'erreur previennent l'utilisateur d'eventuels 
risques d'ecraser des lignes existantes. 


ATTENTION : AENUMBER ne renumerote pas les lignes dont le 
numero est code sous forme de varieble (grace sa DEFLINE).Ce plus il 
est quelquefois necessaire de passer par Ll'EOITEUR pour replacer les 
lignes du programme dens leur ordre normal (lors de l'utilisetion ce 
STEP par ex.). 


AUTO#= : numerotation automatique das ligres. 

Syntaxe : AUTO#=ON active la commande 
AUTO#=pes de numerotation (1 a 255,-->10 per defaut). 
AUTO#"OFF desactive la commence | 


! 
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Ex : AUTO#=20 numerote les lignes avec un pes de 20. Lorsque l'on 
active Le commande avec AUTO#-ON ou AUTO#=pas,1le DAI affiche le prompt 
BASIC (#*) et attend un ESPACE pour afficher le nouveau numero de ligne 
et placer le curseur six caracteres apres le prompt.Le programmeur 
peut, avant la frappe d'un ESPACE reprendre la main.Par defaut le 
numero de la premiere ligne est 100. 
AUTOS= : permet d'afficher eutomatiquement une chaine de caracteres 
apres chaque numero de ligne. 
Syntaxe : AUTO$S=ON 

AUTOS$="chaine" 

AUTO$S-0FF 
Ex : AUTOS="DATA " 


AUTO$S="PAINT " 
Combinee avec AUTO#,cette commande est tres utile, 


serie de REMs ou de DATAS par ex. 


pour rentrer une 


VRESTORE : elimine toutes les variables non utilisees.Gain de place et 
de vitesse. 


PSTAT : affiche le nombre de lignes du programme,la taille du buffer 
texte etc..... 


LISTPAOTECT : interdit le listing d’un programme. 
Etait-ce vraiment utile 77? 


HMIDTH= : format des listings sur imprimante (de 26 #« 255,per defaut 
60). 


JEAN-JACQUES SOUTAUD 
26,rue ANATOLE-FAANCE 
F9a140-ALFORATVILLE 
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PARIS le 01.09.1987 
XBASIC et LANGAGE MACHINE 


Le XBASIC offre de tres nombreuses nouvelles commandes et il 
peut etre fort interessant d’inserer les routines correspondantes dans 


ces propres programmes en Llangage-machine. 


Prenons comme exemple la banque #4: ComD0S V3.2.I1 faut 
d'abord connaitre l'adresse d'appel de la routine choisie. Si l'on 
observe la structure d’une BANK XBASIC,on trouve toute une serie 
d'adresses qui nous renseigne sur le contenu de cette SBANK.Entre 
eutre,l'adresse ou se trouve l‘'en-tete de la 8ANK (ici - ComD0S V3.2 
(#08F000) - ,adresse- F14Shex);puis rangees dans le meme ordre que la 
liste des commandes de la SANK,5e trouve la liste des adresses de ces 
commandes :ici la liste commence par CLS puis CAT etc.. 

La premiere adresse F6E8hex pointe le debut de la routine 


CLS.0esessemblee cela donne : MVI A OCH code pour CHAS$( 12) 
AST 5 saffiche le code 
08 03H ;place dans l'’Acc. 
RET :retour à l'appelant 
Pour pouvoir appeler cette routine,ili faut utiliser un 
sous-programme du BNCU (Bank-New-Command-Unit]) : le saut a une banque 
J8K (Jump Sank) à l'adresse F36Shex. 
Cela donne : CALL OFB65H ;ssaut à la banque 
08 08H ;: No8 
Ow OF6E8H ;adresse de CLS 


A noter que cette routine etant tres simple et tres 
courte,il n’est pas interessant d'utiliser la version XBASIC.Aussi 
occupons-nous de la deuxieme commande: CAT qui est bien plus 
utile.Cette routine est trop longue pour etre desassemblee 
ici,simplement remarquons quelle commence (F42E£hex) par un appel a 
l'adresse £791hex (evaluate string expression) qui renvoie le registre 
HL pointant sur La chaine (er octet = longueur de la chaine) .Cette 
routine permet le synterxe CAT “chaine”. Si nous voulons l'’inciure 
dans un programme ML,il suffit de l'appeler à partir de l'instruction 
suivante (a l'adresse F431hex). 


Resumons :pour executer le DIRECTORY d'une cisquette,il faut 
pointer le chaine (s£ il y a lieu) avec le registre HL 


LXI H chaine :HL pointe le ler octet de la chaine 
CALL 0F865H ;3aut « la banque 
08 08H :No 8 
Ow 0Fa31H routine DIR (CAT) 
chaine 08 65H 
08 "ESSAIS" 
Attention : tel quei,ce programme ne tourne qu'eppele depuis 


le BASIC (ROM 0) Pour l'utiliser depuis Ll'UTILITY,il faut commuter en 
DAI-AOMO avant L'appel de DIR et revenir si besion à la banque ROM3 


epres. 


Ne 


1001001 


Remarque : en utilisant JSK (F86Shex),la routine appelee 
renvoie au progremme appelant des la rencontre d’un RET (retour) .Si 
nous voulons garder la main et continuer notre progremme,il faut 
utiliser un autre sous-programme du BNCU C8K (Call Bank à l'adresse 


F829hex) .Ex 


LXI chaine 

CALL (et: LA :0F829H Call Sank 

08 08H :No 8 

OW 0F431H ;OIA 

CALL WAITSP :0060AH attends SPACE ou BREAK 
SUITE... 

RET 


Une autre commande tres interessante est COM.Elle permet de 
formater une disquette,initialiser la BAM,valider les secteurs 
inutilises, effacer ,renommer les fichier etc..... s 

Heureusement ,le DAI ne fait que verifier la syntaxe COM 
“commande” Cc-a-d la presence d'une chaine de caracteres apres la 
commande COM,et non le contenu de la chaine qui est analysee par le 
VC1S41.Ainsi,il fort simple d'utiliser cette commande depuis un MLP.:1 
suffit de pointer avec HL la chaine et de faire un saut (ou un call) « 
l'adresse F421hex bank No 8. 


EX : LXI H chaine 
CALL J8K ;teut à la banque 
08 08H ;:No 8 
Ow Cou ;: COM EQU OFa21 
chaine 08 OFH longueur de chaine 
08 *N:ESSAI-DISK,01” 


Cet exemple formatte un disque avec nom : ESSAI-OISK et 
identificateur O1.fRemarquez la syntaxe identique au BASIC 
COM"N:ESSAI-OISK,01".Attention de bien rentrer l'identificateur sous 
forme de deux digits hexa (30hex,31hex ici) et non Olhex.Grace à cetta 
routine {F421hex),il devient possible d'utiliser 


N: formeter 
V valider 
L initialiser 
S: effacer 
A: renommer 
Un autre exemple legerement different : QCOPY “nom de 
fichier".Cette routine demarre à l'adresse F185hex Bank No 8 par 
CALL CysKk :Cell Jump SanK OF855H 
08 OCH :8enk No OCH 
Ow CF24aCH sroutine QCOPY 


et continue a cette nouvelle acresse per CALL 0E£791H (evaluate string 
expression) qui renvoie HL positionne sur Le debut de la chaine,ici le 
nom du fichier 4 copier.[Il faut donc appeler directement la Sank OC +4 
l'adresse F24Chex + 3 octets : c-a-d F24Fhex,cela donne donc 


LXI H chaine 


CALL J8K ; Jump 8enK 0OF829H 

08 OCH ;: No de banque 

PL OF24FH :routine QCOPY apres le string evaluate : 
chaine 08 longueur 

08 ‘escii” 


Malheureusement ,certaines commandes posent plus de problemes 
par de nombreux appels à certains sous-programmes de decodages comme 
CALL OE710H (run 8 bit expression), CALL OE6F8H (run 16 bit 
expression) etc..il s’agit par exemple de OPEN,CLOSE,PUT# entre 
autres. 


I1 faut noter que le XBASIC utilise certaines cases memoire 
ce OOH à OFFH pour ranger des variables necessaires au fonctionnement 
du ComO0S.Il s’agit de OFdh a FFH pour les six numeros de fichiers 
permis par le D0S.Deux octets sont necessaires pour coder le numero de 
canal et le numero de drive.Par exemple tapez sous SASIC :OPEN 3 8 
4,puis observez sous UT le contenu de OF4H a OFFH ;remarquez le calcul 
de l'adresse OF2H+( numero de fichier®2) =0F8H.Sont utilisees aussi les 
adresses OC8H a OCFH,egalement 06H et OFH etc... 

Ceci peut poser un probleme de fonctionnement avec certains 
programmes BASIC et MLP comme D-BASIC ou OESUGGING TOOL per exemple,il 
y en a certainement d'autres.Si vous en decouvrez ou si vous trouvez 
des solutions pensez à DAICLIC. 

Si avec ia carte XBUS la commande LOOK (sous UT) ne 
fonctionne plus (car le BNCU utilise ASTO),il suffit de faire NCU=0OFF 
pour en recuperer l'utilisation. 


J-JACQUES SOUTAUD 
1 Av. COURTELINE 
F-75012 PARIS 


G 


Alfortville Le 12.06.87 
Ecriture-Lecture en acces direct avec le VC1iS41 


I1 peut etre utile,au cours d’un progremme,de verifier que 
la disquette presente dans le drive est bien celle ettendue.Ill suffit 
de lire son nom et de le comparer avec celui attendu.Pour celsa,il faut 
utiliser des commandes permettant l'acces direct à chaque octet de la 


disquette. 


Tout d'’ebord il faut ouvrir un type de fichier special 
(fichier acces direct)avec la commande OPEN : ex OPEN 2 8 4 "#" , le 
canal d'adresse secondaire 4 ast affecte au numero de fichier logique 


2 du lecteur No 8. 


Puis il faut lire un secteur d'une piste donnee.Le nom de la 
se trouve en secteur OQ de la piste 18.Nous utiliserons 
l'ordre ‘COM. "Ut:numero de canal,drive,piste,secteur" ,cela donne donc 
COM “U1:4,8,18,0".Ensuite il faut placer le pointeur de buffer à la 
position 144,ou se trouve le ler octet du nom de la disquette, grace a 
l'ordre ‘B-P:numero de canal position” : COM “8-P:4 144'°.Maintenant il 
suffit de lire les 16 caracteres suivants qui composent le nom.Notez 
que 31 le nom comporte moins de 18 caracteres,il est automatiquement 
complete par des CHAS(#AO).La lecture des caracteres se fait grace a 
la commande GET# numero de fichier logique;Variable éiphe 
GET#2;: N$.Ne pas oublier pour finir de fermer le fichier :CLOSE 3. 
A noter qu'il vaut mieux verifier egalement l'identificaeteur 

pour etre sur qu'il s’agit bien de La disquette desiree. 


disquette 


100 ### LECTURE OU NOM DE LA DISQUETTE 

110 CLS:COM “IL"':NOM$S="":22 INIT ECAAN,BAM, VARIABLE 
120 OPEN 3 8 2 "#":46e FICHIER ACCES OIRECT 

130 COM "U1:2,0,18,0":%### LECTURE PISTE 18,SECTEUR O0 
140 COM “S-P:2 144":#e4 POINTEUR SUR 244eme OCTET 


150 LL: 
160 3#2 LECTURE DES CARACTERES OÙ NOM 
170 re 


180 FOR A=Q TO 15:#2#% 18 CARACTERES MAXIMUM 
190 GET# 3: N$S:### CARACTERE OANS NS 

200 *#4 SI N$S«SHIFT ESPACE ALORS FIN OU NOM 
210 IF N$=CHAS$(#A0) GOTO 240 

220 NOMS=NOMS+NS$ 

230 NEXT 

240 PAINT NOMS 

2s0 CLOSE 3 


JEAN-JACQUES SOUTAUD 
26,rue ANATOLE-FAANCE 
F94a140-ALFOATVILLE 


SON LA 
Tarminel 9600 bauds 


A quoi peut bien servir un terminal 9600 bauds ? Euh eh 
bien voilà, c’est une tentative de reconversion du DAI ! 
Seuls ceux qui ne sortent jamais et qui restent toute la 
journée devant leur DAI adoré ne se sont pas rendu compte 
que dens les boutiques d'informatique sont apparus de 
nouveaux micro-ordinateurs qui font pälir notre bon vieux 
DAI!I Pour la mise au point des programmes, certains de ces 


n éaux engins ossèdent des debuggers (  AOM-WACK sur 
AIG A) qui nécessitent l'emploi d'un terminal 9600 bauds 


relié à le AS232. 


Le programme est fabriqué pratiquement entièrement à 

partir de morceaux de programmes déjà éxistants. 
On notera: 

— comment limiter l'espace scrollabile de l'écran. 
- comment éviter l'affichage du C au passage a la ligne ( en 
détournant l'interruption 5 de gestion de l'affichage ). 
- comment utiliser les interruptions de communication 
associées à un buffer roullant (article déjà parru dans ce 
journal ). 
— comment faire un programme sans trop se fatiguer en 
reccupérant des morceaux de programmes d’un peu partout ! 

Non, non, ne ris pas, insouciant lecteur, c'est une 
méthode de programmation pleine d'avenir, si je m'en réfère 
è ce qui se fait sur 1'AMIGA: le maniement de cette machine 
étant passeblement compliqué, les personnes désirant 
développer des programme dessus disposent d’un nombre 
faramineux de programmes en freewcre (en français ‘sans 
droit d'auteur’) qui sont an fait des programmes-exemples 
dans lesquels le programmeur pioche allègrement, 


Pour revenir au progremme en lui même, il reste très 
simple et chacun pourra Ll'oedapter à ses propres besoins, en 
ajoutant, par exemple la possibilité d'envoyer une séquence 
de codes préenregistrés, et ainsi créer un certain nombre de 
macros 


Le 6 aout 1987 Sébastien DOubourg 
pour IOC BORDEAUX 
Président : Bruno Delannay 
Résidence : Les Acacias bat. B3 
Avenue de Saige 
33600 pessac 
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coog 
cooo 
0000 
0000 
0000 
0000 
0000 
oo0g 
0000 
0000 
ion 
0000 
0000 
0000 
c000 
0000 
0400 
0400 
0400 
0400 
0400 
0400 
0400 


8488 
0400 
0400 
0400 
0400 
labie, 
caoc 
0400 
0400 
0400 


28-0400 
2-00c0 


2=FFF8 
2-005F 


2=-006A 
2-FFFO 
e-FF05 
2=008A 
2-0289 


2-8FEF 
2-5F69 


ecren. 


2400 
n, 

0a00 
0400 
0400 
0400 
0400 
0400 
0400 
0400 
0400 
0400 
0200 
0400 
0400 
0400 
0400 
0400 
0400 
0400 
0400 
0201 
oaga 
2405 
2408 
0409 
040€ 


2-8F9F 


8-006C 
2-C6F0 
2=0072 
#=0074 


2-0€ 14 
2-068€ 
82-0054 


220807 
Coce04a 
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TITL *TEAMINAL 9600 BAUDS par S.O0Oubourg” 


:Sebastien Dubourg / IDC BORDEAUX la 26 JUILLET 1986 


Lesssstesessscs2ssssss%2000 
;* CONSTANTES OU PROGRAMME # 


SRRORODONRETENÉ OREGON TES 


DESUT 


EQU 400H ;Adresse de debut de programme. 
VITESS EQU 0COH Code pour la vitesse de transmi 
07: O= 2 bits de stop,i= 1 bit de stop 


:b6: 1-9600 bauds; bS: 1"#4800 bauds; ba: 12400 bauds; 
:b3: 1-1200 bauds; b2: 1=600 bauds; b3: 1-#300 bauds 
:b2: 1=110 bauds 

oRG OESUT 


trente nannenenpennneoncatensenaneerne 
;:* Adresses relatives au entree sortie *# 
MiiLLLLLILLi LL LLLILL LL LL Lil) LLLLLLL LL) ) 


, 


MASQUE EQU OFFFS8H Registre de masque du 5501. 

AM £QU SFH ; Copie en Ram du registre 

va £EQU 5AH : JBCPÉBAUL - d'interuption. 

INPUT EQU OFFFOH :Port d'entree RS232 du 5501 

SAUD £qu OFFOSH Registre de vitessa AS232. 

HISCAL EQU BAH sPointeur du haut de l'ecran sc 

KNSCAN EQU 289H Flag de scanning du clavier. 

; 

HISCAN EQU OBFEFH Haut de l'ecran visible. 

LISCAN EQU HISCAN-86H ; debut de la 2eme ligne haute €: 

BUS EQU RISCAN-S50H zone de questionnement sur l‘'e: 

vs Equ SCH ; ADO. OF VS SAVE AREA 

ASTS EQU OCS6F OH ; ORIGINAL CONTENT OF vS 

Pos EQU 72H ; CONTENTS THE CUASORA'S POSITION 
EQU 74H 


LINENO 


CRE ES EE EE 4 10 + LE © € D © à D © do À 


:* Sous-programmes en AOM # 
+: COBLOSOHERRORSHHEUHREHESRSES 


Cour EQU 00€ 14H Compare HL et DE (MHL-0€), 
GETC Eau 0068EH : GETC dans A 
OUTRAS EQU 90094H iSortie vers La rs232. 


L 
HELLO 


rédtocsetvopovdgpenesresre 


:° Programme principal * 
+: DOVÉOASHDHES AH AAIHIES ESS IE LS 


PUSH 8 

LXI H ALOHA iMet dans la pile l’ecresse de 
PUSH H ifretour: ALOHA. 

LXI H OH 

040 SP ;: Sauvegarce de !l4 valeur actuel! 
SHLO RSP ;-le du pointeur de pile. 

CALL INIT ;SOus programme d'initileisatic 


42 - 
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040F Cc37205 JMP WACHEN :8oucle principale du programme 
0a12 : 

0412 2A0607 ALOHA LHLD AVS ;Aeplace le contenu originel 
0415 226C00 SHLO vs du vecteur d’interuption S,. 
0418 CD8004 CALL COMOFF ;Remet en place V4 (math en AOM) 
0418 C1 POP 8 

041C C9 RET 

0410 ‘ 

0410 ; 

0410 ,OSHOHÉDRHOSDOSSOSSIDSCEIHSNGESSOHSISS 

0410 ;* Nouvelle routine d'interruption S: * 

0410 ;* gestion des fins de ligne « 

0410 I TRAGRSHARGHAUTÉÉHECÉOCGEDOEE EE ESS SOS 

0410 : 

0410 ES STAAT PUSH 

041€ F5 PUSH PSW :Si le caractere à imprimer est 
041F FE00 CPI 00H ;'return', on Ll'imprime 

0421 CA3204a JZ READY ;snormalement sur l'ecran. 
0424 3A7200 LOA Pos : Si on est pas a la fin de ia 
0427 2A7A00 LHLD LINEND ;ligne, on imprime le caractere 
042A 80 CMP L ;contenu dans À normalement. 
0428 C23204 JNZ REAOY 

042€ 3€00 MVI A CH ;Sinon on imprime d'abord un 
0430 EF AST 5 ; return” 

0431 03 08 3H 

0432 F1 READY POP PSW 

0433 E1 POP H 

0434 C3F0C6 JP ASTS ;Continue le ASTS normal. 
0437 ; 

0437 È 

0437 CORDON GOGUTÉHEDOCCONÉOUÉCEHCLEHÉTLEL SES E ES 

2437 ;:* Initialisation de la partie communication * 

0437 I TOSTARDRADRNRETRGEUTOSROGRONHHIONDENROOGERREGTR 

9437 . 

0437 3EC0 ASINIT MVI A VITESS ;:Selectionne ls vitesse de la 
0439 3205FF STA SAUO ;AS232. 

043C 210A07 LXI H SUFOES ;Entree at sortie du 

043F 220007 SHLO SUF 1 sbuffer au debut du buffer. 
0442 220207 SHLO SuF2 

9445 CDA304 CALL COuON ;Met en service l'interupt.a 
0448 ; ;pour la recep'ion AS232. 
0448 c9 AET 

0443 n 

9449 I FDSRRRTOSHSRSHNAGOSLENTAILHOSLÉOSA SOS ALLesTe»RLEe Ce 

2449 ;® Incremente HL en tant que pointeur de Buffer # 

0449 VÉSRHANONALSNSNDANHDANDTANEANDÉRTINPONPOR RENDUES EE 

04493 ; 

0445 F5 INRSUF PUSH PSN 

0444 05 PUSH D 

0448 110A08 LXI 0 BUFFIN ;Si HL pointe la fin du 

Gà4e CO140€ CALL COur ;Buffer,la nouvelle adresse 
0451 01 POP 0 rest ceile du debut du 

9452 DASAOA JC LINAS1 buffer. 

0455 210A07 LXI H SUFDE3 

9458 F1 POP PSY 

9453 C9 RET 

904SA 23 LINAB1 INX H 

2458 F1 POP PSN 
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045C c9 RET 

caso . 

0450 I TÉRHORCHOHSOCONSILENDOROLAHDH DUO LITHRHRONLLATHELEES 

0450 ;* Entre le contenu de l'accumulateur dans le buffer * 

0450 srRRonpanaR one ARARONTONTORCENATTOLGOË GE ES DE 

0450 à 

0450 F5S INS PUSH PSW 

O4SE 2A0207 LHLO BuF2 ;HLsadresse nouvelle d° 
0461 CD4904 CALL INRBUF entree du Buffer. 

0464 €8 XCHG :S1 elle est egale + ceile 
0465 2A0007 LHLO BUF 1 sce la sortie du buffer,c” 
0468 CO140€ CALL Cor ;est que le buffer est plein 
0468 CA?7S504 JZ LINB1 ;exit sens rien changer. 
046E F1 POP PSW ; Sinon, sauvegarder la 

046F E€8 XCHG ;snouvelle adresse du 

0470 220207 SHLO suF2 ;pointeur de sortie du buffer, 
0493 77 MOV M,A set le car. dans le buffer. 
0474 C9 RET 

0475 : 

0475 F1 LINS1 POP PSW 

0478 C9 AET 

0477 ; 

0477 $ C2ALOSRODODOSDOBSHNSÉÉSIDHÉSONDHÉSDOÈDISÉLOSÈNTUÉSSÉESTS 
0477 ;# Sort un car. du buffer et le met dens l'accumulateur + 
0477 ,TOLAGADONAODONHALARORESIPENTITHTIRTLENLTIRTENSISHENTICIODGES 
0477 ; ; 
0477 2A0207 OUTB LHLO BuF2 :Si le pointeur d'’entree et 
047A E8 XCHG ;le pointeur de sortie du 
0478 240007 LHLO SUF 1 sbuffer sont les memes,c'est 
047€ CO14a0€ CALL coup que le buffer est vide; 
0481 C28604 JNZ LIOUB! imettre alors le carry a 1 
0464 37 STC Pour indique que le buffer 
0485 C9 RET est vide. 

0486 ; 

0486 CO4904 LIOUS1 CALL INASUF :Sinon.hHl=sedd de la sortie, 
0489 7€ MOV A,M ;Avcaractere lu dans Le buf 
048A 837 ORA À Met le carry e 0. 

0488 220007 SHLO BUF 1 ;fauvegarce le nouveau 

048€ CS RET ;pointeur de sortie de buf. 
048F : 

048F LPO POALDECOÏONPONRORDROCHRTONHOPOROCHOOÏCHOODOSÉ ESS SEE 

048F :% Poke le caractere recu sur la AS232 dans le buffer * 

048F 5 HE TE He QE LL 4 D D de 4 SE Sd LÉ A LL QE EE + LL LE à D QE D GS D ES DS GE 

048F 3 z 

048F sAppele per l'interruption 4 liae à le reception sur AS232, 
048F $ 

048F F3 RECEPT OI ;Interdit les interruptions 
0490 F5 PUSH PSW pour eviter les STACX 

0491 C5 PUSH 8 ; QOVERFLOW et sauvegarde tous 
2492 05 PUSH 0 les registres. 

0493 3AFOFF LOA INPUT :Lit le car, recu sur AS232. 
0496 57 ORA A :Si c’est O ne pas Île 

0497 CA9004a Jz LIREC ;prendre en comote,sinon le 
O49A CDs5n04 CALL INS srentrer dans le buffer. 
0499 O1 LIREC P0P 0 ;Becuperer tous les registres 
04SE C1 POP 3 ;et reprendre l'execuvtion 
0aSF F1 POP PS4 ;:du programme principal, 
04AQ0 E€1 POP 


_ 
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F8 EI 
c9 RET 

; 

RHONE SHESHEHÉOENÉESVLÉTHÉGÉSSILCEUETOLE ESS 

;* Mise en marche de la routine de reception * 

TRRECUGLOHOVEHOOSHOE RSR ONRCOHAREDÉRSUESE 

; 
F3 COMON DOI 
3A5F00 LOA 8M ;Autorise l'interruption 4 
F610 OAI 10H (reception sur RAS232),. 
325F00 STA AM 
32F8FF STA MASQUE 
2A6A00 LHLO va ;Vecteur 4 = pgm de 
220407 SHLO Ava ;reception,et seuvegerde 1’ 
218F04a LXI H RECEPT ;éncien vecteur 4 (routines 
226A00 SHLO va ;ymathematiques). 
F8 EI 
c9 AET 

 cnnasnncnnanausnenseencee seen ##0# 

:# Arrete la routine de reception # 

PP PP EE Er 
F3 COMOFF OI 
3EC4 MVI A OCan :interdit l’interuption 4. 
325F00 STA EL] 
32F8FF STA MASQUE 
2A0407 LHLO Ava :Recupere l'ancienne adresse 
226A00 SHLO va ;du vecteur 4 (math.). 
F8 EI 
cs RET 

:26 DECEMBRE 1985 

 esssssssenseesesessesceneneneoes 

;# Initialisation ecran + RS232 # 

HN NAGHRARTHIEREICERSTAITDE ES 
21EA08 INIT LXI H ca ; COLOAT. 
EF AST S 
06 08 6H 
COEEO4 CALL CLEAR :Formate l'ecran. 
C03704 CALL ABSINIT :initialise la partie com. 
LUS XRA A :Pes d'echo local au cepart. 
32FF06 STA FECHO 
2A6C00 LHLO vs ;:Seuvegarde le vecteur d'inter: 
220507 SHLO AvsS ; -ruption 5 et met a la place 
211004 LXI H START notre propre routine, 
226C00 SHLO vs 
C9 RET 

Sos venasnesesnbet seen ns 

;* Couleurs pour le COLORT * 

éanidile d à ed 
000500 rats 08 0H,5H,0h,3H 
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O4ÉE 

GAaE£E 

O4EE 

OQ4EE 

O4€£E 3EFF 
GaFQ EF 
04F1 18 
O4F2 3E0C 
O4F4 EF 
Q04FS 03 
0aF6 3€00 
04aF8 EF 
04F9 03 
O4FA CO0S0S5 
O4F0 21698F 
0500 22684A00 
0503 210016 
0506 EF 
0507 09 
0508 cg 
0509 

0509 

0509 

2509 

0503 

0509 C03E05S 
050C A8C3A9 
0511 205365 
0530 C9Ccac3 
053C 00 
0530 C9 
053€ 

053€ 

053€ 

933€ 

053€ 

053€ 

C53€ 

053€ 

053€ 

953€ 

c33€ 

033€ 

033€ 

053€ 01 
053F €5S 
C540 21€78F 
0543 Es 
2544 0E3C 
2546 0620 
0548 AF 
0549 70 
0544 28 
0548 77 
C54C 28 
0540 00 
G54£ C24905 
0551 Et? 
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stoctecdooeeeeenseste 
;* Formate l'ecran * 
MLILLLLLLLELLLLLLEL EL): 


ï 
CLEAR MVI 


A OF FH ; MODE 0. 

AST S 

08 18H 

MVI A OCH ; 2CHAS( 12) ; 

AST S 

08 3H 

MVI A 00H ; PRINT 

AST 5 

08 3H 

CALL COPYAI sAffiche le copyrigth. 

LXI H L'ISCAN ; Place la ligne haute 

SHLO HISCAL hors du scroll, 
LICLAY LXI H 1600H ;Place le curseur 

AST S sen heut de l'ecran. 

08 SH 

RET 


ï 
1 72000000600000009906066006600000084 


;* Affiche le message publicitaire © 


, 
LHRÉRERCRESNRORANDRGHHIUGETHOHDHOËTEHE SE 
; 


OPYAI CALL PAINT 
08 eMOl 7 
08 * Sebastien Oubourg £& le fameux 
08 “IOC 3O0OROE€EAUX" 
08 0H 
AET 


r'HÉOHHTHÉDRTNSSÉESSÉSÉSHEHDÉSSSSLOOÉOSÉHISLSISSD6006HO 


, 
;* Affiche un message sur la ligne haute de l'ecran © 
Hot 6 6 4 dE € © & à © © © © De De © Cd @ dé de Cdt LE + LS € 4 0 dE de LS € + Dr 4 4 


;: FORMAT : CALL PRINT 
H : 08 ‘message’ 
; : 08 OH (morqueur de fin) 


:Le caractere code en Hexsa 1H n'est pas affiche à l'ecran: 
c'est un ceractere de remplissage. 

Les octets du messege syent le bit 7 e 1 sont 

;imprimes en inversion video, 


L 
PAINT Por 0 0€ contient l'acdrasse du mes: 


LXI H HISCAN-8H 


MVI C 3CH s8oucle d'effacement d'ecran. 


800006 MOV 


JNZ 3000065 
POP H ;Recupere l'add du debut de la 
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0552 
0553 
0555 
0558 
0559 
055C 
055F 
0560 
0561 
0562 
0564 
0565 
0566 
0557 
0568 
0569 
056A 
0568 
O0S6E 
056F 
0570 
0571 
a572 
0572 
0572 
0572 
0572 
0572 
0572 
0575 
0578 
0578 
057€ 
0581 
0584 
0587 
0588 
0589 
o58c 
056C 
258c 
258c 
058C 
058C 
0560 
0580 
0593 
0554 
0595 
0536 
0598 
0598 
0590 
95A0 
oSA2 
05AS 
05A7 
DSAA 


TA 800001 


CA6E0S 

F26705 

28 

28 

28 

36FF 

23 

23 

23 

Là à LIPAI2 
28 

28 

13 LIPAI3 
Cc35205 

13 LIPAII1 
E'1 


, 
, 
’ 
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> 


ocx 
INX 
JMP 
INX 0 
POP H 
PUSH 0 
AET 


+4 
z 
x 
OTTE£ELLLELILIZL 


Boucle d'sffichage. 


1H 
LIPAI3 


LIPAI1 
LIPAI2 


OFFH :Poke la video inverse. 


800001! 


RLLLLLLLLELILLELS SES); 


;# Boucle principale © 
100000000000 S 


CD8COS WACHEN 
D27E05S 
cocsos 
C38105 

CaE806 LIWAC1 
C07704 LIWNAC2 
0A7205 

EF 

03 

c37205 


* 
AF ET 
328902 
COBEDS 
D8 
ce 
F5 
FE09 
CA8105 
FE10 
CA850S 
FE11 
CA890S 
FE12 
CA8005 
FE13 


CALL 
JNC 


AZ 


GET ;Scrute le clavier. 

LIWAC1 

MENU ;:Menu s1 8AEAK,. 

LIWAC2 

OUTPUT ;Envoie le caractere tape. 
OUTS :Si un carectere est present 
WACHEN dans le BSuffer, l'afficher. 
3 

WACHEN 


;:Fleg 
KNSCAN ; tout 
GETC 
:Exit 
srien 
3h ; CODE 
GET9 
10H ; CO0E 
GET'O 
11H ;: Code 
GET'1 
12H ;: Code 
GETI2 
13H ‘;Coce 


+ Géo dde ES #5 dy 4 € db de M € dt AS 2 D dE 2 GE 4 2 A 7 4 D Er & © 45 1 9 9 D D 9 © 


; 
;:# Scrute le clavier (caractere tape en A) * 
r CÉHSEDOLLTESLDO SES O0 00660000 6% 40460 0 À % 0% t% Ge dE di à 


pour Le scanning de 
le clavier. 


5 SAEAK ou si 
n'est tape au clavier. 


escaoe 27H. 

vers le haut. 
vers le bas. 
vers ls gauche. 


vers le droite. 
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OSAC CAC10S Jz GETI3 

OSAF F1 POP PSW 

0580 C9 RET 

0581 H 

0581 ; touches a fonctions spaciales. 

0581 ; 

ose1 F1 GET3 POP PSN 

0582 3€18 MVI A 18H 

0584 Cc9 RET 

0585 ; 

0585 F1 GET'O POP PSWw 

0586 3E08 MVI À 08H 

0588 C9 RET 

0589 1] 

0589 F1 GETI1 POP PSWw 

OSBA 3E0A MVI A OAH 

058C Cc9 AET 

0580 ; 

0580 F1 GETI2 POP PFSW 

OS8E 3E08 MVI A 8H 

05ca cg RET 

osc1 ; 

osCt F1 GET13 POP PSW 

05C2 3€09 MVI A 5H 

05C4a Cc9 RET 

oscs $ 

05cs + 

05cs RLLLLEEE 

oscs :° Manu * 

oscs jtostesse 

95CcsS ; 

05CS 3AFFO06 MENU LOA FECHO :Si l'echo local est actif, 
0sc8 87 ORA A ;proposer dans le menu 
05C9 0606 MVI 8 6H : ‘pes d'echo’, 
25c8 1101908 LXI D LIMENS 

OSCE CAOFOS Jz LIMEN: 

0501 213006 LXI H PASOS 

0504 7€ LOOFOO MOV A,M 

0505 12 STAX D 

2506 23 INX H 

9507 13 INX O 

5508 065 OCR 8 

0509 C20405 JNZ LOCPOO 

050C Cc3e705 Jue LIMEN2 

G50F 3€01 LIMENT MVI À 1H :$inon proposer ‘echo’. 
0SE1 12 LOOPOTt STAX 0 

05€2 13 INX © 

95€3 0S OCR 8 

05€4a C2€105 JNZ LOOPO: 

05€? CO3E0S LIMEN2Z CALL PAINT sAfficne le menu sur la ligne 
QSEA 404S4€ 08 “MENU : ” La plus haute sur l'ecran. 
05F1 80 08 0” 

05F2 204578 05 “Exit ? 

0SF8 81 08 dé ‘2 

05F9 2048685 08 ’-Hexa 

0SFF 82 08 de” 

0600 20 08 =! 

0601 506173 LIMEN3 O8 ‘Peas d° 


48 
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0606 27 08 27H 

0607 656368 28 ‘echo ‘ 

060C 83 08 va” 

0600 20454€ 28 *-EN0‘ 

0611 00 08 OH 

0612 AF 800008 XAA A Gestion du choix de 
0613 328902 STA KNSCAN l'utilisateur. 
0616 CO8ED6 CALL GETC 

0619 DA090S JC COPYAI 

061C 0630 SUI LE 

061E CA090S Jz COPYAI 

0621 30 OCA A 

0622 CA8806 JT TAB 

0625 30 OCR A 

0626 CA3606 Jz ECHO 

0629 30 OCA A 

062A CAE106 JZz ENO 

0620 C31206 JMP 800008 

0630 É 

0630 706173 PASOS 08 ‘pas d’° 

0635 27 08 274 

0636 ; 

0636 ‘ 

0636 NÉS ENSEHETC NEA EEE EE DE LE NN LEA EE À Ed D à D 

0636 ;* Changement de l‘’etat de l’echo local * 

0636 jPebecsenseshenpensiHencessenserereccesses 

0636 ; 

0636 3AFF06 ECHO LDA FECHO 

0639 2F CMA 

0634 32FF06 STA FECHO 

0530 C30905 JMP COPYAI 

0640 j 

0640 ; 

9640 ,THOGHOQROOAPARDANRTRNREPOGRANRESTENERE 

0640 ;* Entre en A un chiffre de base 16 * 

0640 190400000606 80808 048044 

0640 : 

0640 COBE0S INPA CALL GETC :Reconnait les coces ce ‘0’ 
0643 08 AC sde ‘’A° à ‘F'° et les codes 
H) 

0544 F£00 CPI 00H set char del (084). 
2646 C8 AZ 

0647 FE08 CPI 8H 

0649 C8 az 

064A FE30 CPI ‘0 

064C DA4006 JC INPA 

064F FE3A CPI cut 

0651 DASEO6S JC LINPA2 

0654 FEai CPI “A° 

0656 0DA4006 JC INPA 

0659 FE47 CPI 9° 

0658 024006 JNC INPA 

065€ 87 LINPA2 O8A A 

065F C9 RET 

0660 ; 

0660 : 

0560 RODORDRNPONHEPOLARIVLONPRUTHOHPAIDEOUHGNORQNEGRE 
0660 5% Traduction ASCII-HEXA pour un chiffre en A * 


r FHESÉASHODSHÉDORDNDÉROSLSSÉSÉHSHÉSSLERSHIHSOLDESE 


a 
ret 
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stovedothensotededieusoescocatesdeetesisses 


; 
;* Entre en A un nombre hexa de 2 digits *® 


ÉCHOS SHSHE SEE SE IS ES SAS SE SE D Ed DS 4 ED D ES 


CALL 
A00 
ADO 
A0D 
ADO 
A00 
RET 


Nn>»LYr>»> 


INPA ;Entree du premier digit. 
Exit si BREAK. 
0EH sinterdit les codes de controle 
INPHL 
BUSU+2H Affichage sur l'ecran. 
; Sauvegarde en 8 
INPA ;Entree du sacond digit. 
sExit si SAEAK,. 
8H 
LHL2 ; Si char del reentrer le 
sl spremier digit: effacement du 
BUBU +24 ;:premier digit sur l'ecran. 
INPHL 
00H :Si ret traduire l'’octet entrer 
LHL3 set exit, 
TRAD 
BUBU sAffiche le 2eme digit. 
TRAD Le traduit en binaire. 
; Seuvegerde en C. 
INPA iAttend la validation ou charde. 
Exit si BSAEAK. 
8H :Si cher del,rentrer le 2eme di 
LHLS 
moe ;Effece le 2eme digit sur l'ec- 
Bauau 
LhLi 
00H :6i return,treduire le 
LHLA ;nombre entre et exit. 
TRAO 


Sete 0 dt © 4 D 6 4 D € 4 à © © @ 4 © © 4 Ge © + de où + © + © © 4 © © 


réocnrobtdietenevd evo 000 V on bb Do CÉbbDobLorDorS 
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0660 : 
0660 FE3A TRAO 
0662 0A6706 

0665 0607 

0667 0630 LITA1 
0669 cg 

066A : 
066A 

066A ; 
066A : 
056A : 
066A CD04006 INPHL 
0660 08 

066€ FÉCE 

0670 DA6A06 

0673 32A18F 

0676 47 

0677 CD4008 LHL1 
067A 06 

0578 FE08 

0670 C28806 

0680 3€2€ 

0682 32A18F 

068$ C36A06 

0688 FEOO LHL2 
068A C29106 

0680 78 

068€ C36006 

0691 2329F8F LHL3 
0694 C06006 

0697 4F 

06598 C04006 LHLAa 
0698 08 

C69C FE08 

069€ C2A906 

O06A1 3EÈ2E 

06A3 329F8F 

05A6 C37706 

06AS F£0O0 LHLS 
0648 C29806 

C6AE 78 

C5AF CO6006 

0682 87 

0683 87 

06584 87 

0585 87 

0586 81 

06587 C9 

0638 è 
2538 ; 
0588 

25838 

0588 e 
2638 

0588 CO3E0S TAB 
0688 454€56 

06C1 C8cs08 

08CS 2034 


CALL 
08 
D8 
08 


;:* Envoi des caracteres coce en hexa sur AS232 + 


PRINT 
"ENVOI-”’ 
"HEXA” 
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06C7 00 08 
06C8 363€ MVI À 
O6CA 32A38F STA 
06C0 3E2€E 800007 MVI A 
O6CF 329F8F STA 
0602 32A18F STA 
0605 CO6A06 CALL 
0608 0A090S JC 
BREAK. 
0608 C0E806 CALL 
sur A6S232. 
060€ C3C006 JMP 
06€1 ; 
06E1 ; 
06E1 3 
06€1 n 
06E 1 : 
06E1 F3 END OI 
06E2 2A0807 LHLO 
06ES F9 SPHL 
06€E6 F8 EI 
06E7 C9 AET 
06E8 à 
26E8 ; 
06€8 sééessesset 
06E8 ;* Output * 
06Ea sesareerse 
06E8 ; 
06E8 CS OUTPUT PUSH 8 
06E9 05 PUSH 0 
C6EA ES PUSH H 
06E8 F5 PUSH PSN 
Q6EC CO9400 CALL 
G6EF 3AFF06 LDA 
06F2 87 08A À 
06F3 CAFAO6S Ja 
06F6 F1 POP PSWw 
06F?7 F5 PUSH PSW 
06F8 EF AST 5 
06F9 03 08 
06FA F1 LOUP1 POP PSY 
G6F8 Et PCF H 
06FC 01 POP 0 
06FD C1 POP 8 
OSFE C9 AET 
O6FF : 
06FF ; 
06FF 00 FECHO 08 
0700 BUF1 os 
0702 syF2 os 
0704 Ava Os 
2706 GE] os 
0708 ASP 0s 
0704 ; 
G70aA ; 
970A Æ@=0400 SUFLON EQU 
070A BUFOES DS 
O80A @=O80A BUFFIN EQU 
0804 : 
Cs0a I0C8Xx ENO 


0H 

Fa 
BUSU+4H 
BuBu 
BUBU+2H 
INPHL 
COPYAI 
OUTPUT 


800007 


: ÉGÉRCSHCHSSHESSGEÉS SES ESS ES ES 


;* Retour a l'utilisateur * 
MLLLLLLLLLALLILL LILI L111121) 


RSP 


on 
2H 
2H 
2H 
2H 
2n 


400H 
BUFLON 
SUFOES+S8UFLON 


sAffiche ’>..’ sur Le 
;ligne haute. 


sRevient à la boucle principale 


; Sinon envoie l'’octat tape en h4 


recupere le SP originai. 
Et return à l'utilisateur. 


Envoi vers la AS232. 
Envoi sur l'ecran si l'’echo 
: local est actif. 


;Fleg pour l'echo loce!. 
sPointeur de sortie de buff. 
;Pointeur d'entree de buff. 
Zone de sauvegarde du Va. 

; Zone de sauvegarde du VS, 
Zone ce sauvegarde du Sp. 


Longueur du buffer. 
;0ebut du buffer. 
:Fin du buffer, 
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1 TITL ‘MUSIC 

2 

3 è F.Bacquet / 12.85 

a 

5 ; LRLLLELLRLLRELLLLLLSRLLLLLRLLLLLLLRLLS LL SLI LRLLLLLLLZILLLLZILLL:.] 
6 ; Joue de la musique sur 3 canaux en se servant d'une 
7 1 interruption . On peut desormais taper des programmes 
8 ; en musique, L'utilisation des interruptions permet une 
3 ; certaine transparence... 

10 ; CALLM #8000 pour activer 

11 ; CALLM #8034 pour arreter 

12 ; SÉGORSHOESSOROSRHÉSSSHÉTÉTSÉSLÉCESRÉSESESRSSTRTHESLSÉOSHORTÉHES 
13 ; 

14 PUT D” 

15 ; Frequences 

16 00 EQU 611600 

17 RED EQU 577700 ;RE bemoli ou 00 # 
18 RE £Qu 545250 

19 MIb EQU 514930 “arts 

20 MI EQu 285430 

21 FA EQU 458290 

22 soLb Equ 432800 

23 so EQU 408320 

24 LAB EQu 385570 

25 LA EQu 363630 

è2ë Sib EQU 343400 

27 SI Equ 323990 

23 ; Ourees 

29 A EQU 160 ; Ronde 

30 8 EQU R/20 ;3lenche 

31 EN EQU 8/20 :Noire 

32 € £qQu N/20 ;Croche 

33 oc EQU C/20 ; Double croche 

24 Qc £Qu oc/20 ;Quadrupile croche 
35 PUT 4" 

36 ; 

37 ; 

38 Start ORG 08000H 

33 ; 

20 OI 

a! PUSH H ;init 

a2 PUSH PSW 

23 LXI H Ast? 

aa SHLO 70H ; Vector AST 7? 

25 : 

26 LXI H Music 

47 ShLO Ptr 

28 LXI H Musici 

43 SHLO Ptri pointeurs Music 
so LXI H Music? 

51 SHLO Ptreè 

Sè MVI À 1H 

53 STA Time 

54 STA Time! set temps 

ss STA Time? 

56 : 

57 MVI À OFFH 

58 STA GF004h 


; Volume maxi canaux 0 € 
L Fe 


Arret de la musique 


; Sound O off 
; 1 
; 2 


:Pt d'entree de AST 7? 
(Toutes les 20 ms) 


Et on joue la note 
sur canal : 
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59 MVI A OFH 

6g STA 0FD005H 
61 POP PSW 

62 POP H 

63 EI 

6a RAET 

65 ; 

66 3 

67 Stop [ep « 

68 PUSH H 

LE] LXI H C03A9H 
70 SHLO 70H 

71 LXI H OFCO6H 
72 NVI M 36H 

73 MVUI M 76H 

74 NVI M O086H 

75 POP H 

76 EI 

77 AET 

78 : 

79 É 

80 Ast? OI 

LA : 

82 PUSH PSW 

83 PUSH 0 

8a ; Modifs pour jouer Music sur canal 0 
8s LXI H Music: 
86 SHLO End+1H 
LA LXI H Time 

88 SHLO Go+1H 

89 SHLO Mod00+1H 
9a SHLO Mod15+1H 
91 SHLO Mod11+1H 
92 LXI H Ptr 

93 SHLO Sound+1H 
.9a SHLO Mod0S+1H 
LE] SHLO Mod10+1H 
96 XAA A 

97 STA Mod20+1H 
98 MVI A 36H 

99 STA Off+1H 
‘00 CALL Go 

191 : Modifs pour jouer Musici 
102 LXI H Musici 
103 SHLO End+1H 
104 LXI H Time 
105 SHLO Go+1H 
106 SHLO MocOO+1H 
107 SHLO Mod15S+1H 
108 SHLO Mod11+1H 
109 LXI H Ptri 

110 SHLO Sound+1H 
111 SHLO ModOS+1H 
112 SHLO Mod10+1H 
113 MVI A 2H 

114 STA Mod20+1H 
115 MVI A 76H 

116 STA Off-1H 
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117 CALL 
118 : 

119 LXI H 
120 SHLO 
121 LXI H 
122 SHLO 
123 SHLO 
124 SHLO 
125 SHLO 
126 LXI H 
127 SHLO 
128 SHLO 
129 SHLO 
130 MVI A 
131 STA 

132 MVI A 
133 STA 

134 CALL 
135 L 

136 Ret POP 0 
137 POP PSWw 
138 JP 

1393 : 

140 ; 

141 Go LOA 

142 OCA A 
143 JZ 

144 Mod00Q STA 

145 AET 

146 ; 

147 Sound  LHLO 
148 MOV E,M 
149 INX H 
15Q MOV O,M 
151 INX H 
152 MOV A,M 
153 INX H 
154 Mod0OS SHLO 
155 Mod15 STA 

156 ORA 0 
157 ORA E 
158 Jz 

159 : 

160 MOV A,0 
161 OAA € 
162 JZz 

163 Mod20 LXI H 
164 MOV M,E 
165 MOV M,0 
166 RET 

167 ; 

168 End LXI H 
169  ModtO  SHLO 
170 MVI À 
171 Mod11 STA 

172 off MVI A 
1973 STA 

174 AET 


MUSIC 


Go 


Music2 
End+1H 
Time2 
Go+1H 
Mod0O+1H 
Mod15+1H 
Mod11+1H 
Ptr2e 
Sound+1H 
ModOS+1H 
Mod10+1H 
an 
Mod20+1H 
C86H 
Off+1H 
Go 


009A9H 


Time 


Sound 
Time 


Ptr 


Ptr 
Time 


End 


Off 
0FCOOH 


Music 
Ptre 

1H 
Time 
36H 
OFCO6H 


; Joue 


; Idem 


Suite AST 7? 


:Pas de nouvelle note 
:S1 le temps 
:=N'est pas ecoule. 


; On prend la note suivante 


; Dans DE 


;Ët le duree 


: Si Freg-Duree=0, 
revient au debut 


: Coupe le son pour Freq=0 


:Freq DE sur canal O0 ou 1 


: On revient au debut 


;On coupe le son 
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175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
168 
189 
190 
191 
192 
193 
194 
195 
156 
197 
198 
199 
200 
201 
202 


PAGE 4 


; Pointeurs 


Ptr 
Time 
Ptr1 
Time! 
Ptr2 
Time2 


Le 


Dw 
NOP 
ow 
NOP 
Ow 
NOP 


MUSIC 


0H 


OH 


0H 


: PODSSUHSHSSSHSÉSHSTÉDSÉSHERÉ TTC ÈLOSSODIVOUOSOLESELSSHSS 


Exemple # 


, 
TÉÉGÉSOLOSHÉSENHCRCSNHEEEE NE NE LU EEE LE dE D NA D Ed LL + A EL 4 @ à LE à @ D & 


Music 


; sur le canal 0 


Oct 
Tempo 


Oct 
Oct 


Oct 


Oct 


EQU 


SET 
SET 


; Sur le canal 


; 
Oct 
Musici 


; Sur le 
Oct 
Music2 


SET 


A di de 40 wi où dù ui a dd ui 


cansei 2 


SET 


5 
s 


1 


$ 


ah 
OAH 


00,A 
00 ,R 
00,A 
00,R 
00,8 
Oct-1H 
SI,N 
Oct+1H 
00 ,N 
Oct-1H 
SIib,A 
OH,A 
SIb,A 
soc ,8 
LAb,8 
Oct+1H 
00, 
OH,0H 


;ÉQUINOXE II 
F Jean-Michel Jarre 


; 4eme octave 


; On descend d'1 octave 


SPL V1.1 PAGE S MUSIC 

233 Oct SET Oct-1H 

234 s 00,8 

235 s FA,B8+N ;: “Blanche pointee 

236 s OH ,N 

237 8 LAb,8+N 

238 s OH ,N 

239 Oct SET Oct-1H 

240 $ FA,8+N 

241 5 OH,N 

242 $ REb ,A 

243 $ 00,8 

244 Oct SET Oct-1H 

245 $ SI,N 

246 Oct SET Oct+1H 

247 s OG,N 

248 s REb ,A 

243 s 00,8 

250 Oct SET Oct-1H 

251 s SI,N 

252 Oct SET Oct+1H 

253 $ 00,N 

254 s REb ,A 

255 s 0H,0H ;Fin 

256 F 

257? ; ft!!! Attention {1 faut s'arranger pour avoir la meme 

258 ; !!11 duree de jeu sur cheque canal 

259 ; 

250 ENO END ;Adieu 

261 ; 

262 ; 

263 : 

264 s MACRO Freq,Ouree 

265 IF Freqg+0Ouree"O0OH ; Fin si Freq=Duree=0 

266 Ow Freq)Oct ; Frequence 

267 08 Duree*Tempo ; Duree 

268 ELSE 

269 Ow OH Fin 

270 08 on 

271 ENOIF 

272 MENO 

20 :ÉEFC Ab :£TAA 8€ :04F0 MIb :C925 MI :809F 
SoOLb :A910 SOL :9F80 LAb :9690 LA :8€08 SIb :8624 
A :0010 8 :0008 N :0004 C :0002 oc :0001 
Start :8000 Stop :8034 Ast7 :8048 Bet :8004 Go :8009 
Sound :80£4 Moc0S :80E0 Modi5 :80F0 Mod20 :80FD End :8103 
Mod11 :8103 Off 810€ Ptr :8114 Time :8118 Ptri :53117 
Ptr2 :BTIA Time2 :811C Music :8110 Oct :0004 Tempo :000A 
Oct :0004 Oct :0003 Oct :0094 Oct :0003 Musici:8147 
Music2:8169 Oct :0005 Oct :0004 Oct :0003 Oct :0004 
êct :0004 END :81A4a 


FA 

SI 

Qc 
Mococ 
Mod10 
Time 
Oct 
Oct 
Oct 


:8305 
:7E8F 
:0000 
:80€0 
:3106 
:8119 
:0063 
:0006 
:9003 


- 56 - 


IMP INT IMP FPT - IMP STR 


Claudius Morin 
6 rue Robert Houdin - 14000 CAEN - 31-85 15 32 


Ces commandes permettent d'obtenir des variables de type respectif 
entier, réel, chaîne de caractères. 


Pourquoi seule IMP STR doit-elle être obligatoirement associée d'argu- 
nents : IMP STR argl-arg2, avec argl et arg2 prenant pour valeur tout ou partie 
des lettres de À à Z ? 


Les 2 autres cosmandes peuvent bien sûr comporter des arguments. Cela 
perset de répartir les étiquettes dans les 3 types. 


Utilisées sans argument IMP INT et IMP FPT agissent sur le type des 
variables, aais aussi sur le type des constantes. 


Les mémoires de #275 à #28F servent à conserver le type des variables 
(26 octets = 26 lettres) et des constantes numériques seulesent (1 octet). 


Dans la plupart des progranses la majorité des variables sont entières, 
aussi nous utilisons la commande IMP INT pour éviter d'indiquer le signe %, 
d'autant que nos listes sea trouvent allégées des ‘".0" disgracieux et inutiles. 
Un ennui toutefois : le codage des constantes associèes aux variables réelles 
nécessite un octet supplémentaire (#BF). 


11 est donc plus judicieux de déclarer des variables entières en écri- 
vant par exemple IMP INT A-T et de laisser ainsi les constantes réelles. 11 
n'y a plus de ‘.0' pour les constantes entières et plus d'octet supplémentaire 
pour les constantes réelles. 


Voici une autre possibilité pour gagner un peu de place dans les pro- 
g'aanes. 

$f une constante est utilisée souvent (le O par exemple), affectez-la 
à une variable (0:0) et ensuite écrivez la variable en lieu et place de la cons- 
tante. Nous utilisons cette possibilité si la constante comprend plusieurs carac- 
tères, mais je ne l'ai jamais rencontrée pour des valeurs siaples (0, 1 etc) 
pourtant très souvent enployées (indices de boucle). ; 


Quel est le gain ? 
“ une Constante nêcessite L octet pour le type et & pour sa valeur. 
- une variable à besoin de 2 octets donnant l'adresse de la table 


des symboles, 


60 * d'économie, est-ce négligeable ? 


Après as:sir lu ce qu! suit, veus serez: à même ce 
construire votre progre interface MIDI pour ‘aire 
communiquer votre cher petit OAI avec :e monde infini des 
syntnétiseurs,expanders boiîites-à-rythmes, 
équipés (èévidammant!}) du standard MIDI. 


Mais MIDI,de son vrai nom Musical Instrument Digital 
Interface, qu'est-ca que c'est ? £n gres,c'est un standard 
de communication entre instruments de musique,comme la 
RS-232 entre ordinateurs (en fait, MIDI est une AS-232 très 


rapide,mais j'en reparierai). En pius concret, cette 
interface, devenue quasi-universelle (à 99.99%) sur les 
instruments électroniques actuels,per-et un véritsbie 


dislogue dans Les ceux sens entre MIDIis:es.Son utilisetion 
le plus courante est La transmission de notes de musique 
d'un cilevier (ou un ordinateur ,un synthé,..,) vers un synthé 
(ou un expancer ,un autre synthé,...) mais elle permet 
également de compuiser les regisires iriernes ce ceux-ci, 
d'en trafiquer les sons,de les éditer,,.,. meils aussi de 
travailler en temps réel en cecençent ces séquencecrs, 
bref de faire une innombraïle quantité de choses impossibles 
ou trop comple-:es à faire sans MIOI. 


Le Schéme 


Cèté MARD, MIDI n'est rien de plus qu'une 1! 
directionnrelie A5-232 (9 bits 32°5 parent bit ce sto3 
vaiiians à 31.25 N3aurñs, S£ vous dis2ssaz d'orfgina 2° 
rfare sllant 4 cette vitesse lon saut desessers :!2s 

ques sur cerraires Dobssses), #0 2rch'e=. Mais hélas le DA: 
è vs p31 si vilfe,;gsore 15 faut Sriceiar uvre Zniarfes 
suppiérentaire (trés simale!), 


Un roup d'oeil à ia figure 1 vous rassure:un sqinols 
ACIA tyz2 MC 6330 se charge a faut ia prstonmoie àS-222,Sour 
la fréc.ance d'hcrimge,on renizue selle su DAZ (2 Mas}: «gui 
+5: <iviiée à l’intérieur de Ll'ACIA 9527 34: 2C20C09/5:=#3:253 
et le :our 23° faué ! Le cécocsse d'sdresses ast asrchi 
(trogT} simola: registre de données en #NFAx1  résaprtont 
transmission) et registre de “status” e: #YFAxD {scntrèle 2»: 
trat de 


L'ACTA}; x srend Ici m'imsarta selle vaiaur er #2 
et JE as-ce l'uttlise 2 octeïs sur 266 ! Quei gasdi:iage 
mais :ibre à vous de faire oius comalique !111!1:1), 

Notez Dien que £'utiilse !le signs! WAR ue X-80S e* na” 
INR son e-scie 2023le mais inveriéé (ura Lièza Sizarre da; 
sonceptieurs Zu JAI à ae Z'irusrser /WNA saur cétants WA 4° 
le X=-QUE siors que norrelamers Pau ‘es ciseuiss jegic-es 
utilisant /WR ...). 


S'ACTA di;ocss en su3 d'ure sraseg im'intsersuotis.s /IAQ 
pDiagrarmagie er arission un rassstice mais =u1 n'es: 9a7z 
sinnactése izi et agslensni 23 eniress /0DC0 e: /CTS 22-232 
"TLh rallidus # Ta Tarte Ur "2" REVUE sLtSCRIDEe C'VEz 
a5t pralevss 5.7 a 4-3:35,"11% j'ai besoin de 2 signaux 


supplémentaires: l'un sur IC 59 pin 11 (/WR et /A0 dans une 
porte NAND) et l'autre sur IC 45 pin 11 (/FAxx), t2.4 “eux 
très facile à repérer sur la carte mère. 


ENT “67 
n. MS ss 
Fe { PR 
Œ z Œ 
CES BSIOJUILLEURS !!! 
Si le côté gauche du schéma reste “classique”, 


l'interfaçcage des signaux TxD (émission) et AxD (réseotion) 
l'est moins.Pour l'émission des donrées,T4:0 passe par 2 
{nverseurs pour lui donner du “tonus” et sa sorite ve sur la 
broche S d’une DIN 5 br.(socie) via A3; une LED rouge en 
signale l'état (très pratique) .Pour en comprendre le 
fonctionnement ,il faut étudier le réception des donrées (car 
n'oubliez pas qu'une sortie MIOI OUT se trouve tôt ou tard 
branchée dens une entrée MIOI IN !): celle-ci s'effectue par 
l'intermédiaire d’un optocoupleur qui assure une isolation 
gslvanique TOTALE entre émetteur et récepteur(s) MIOI; la 
sortie de cet optocoupleur va droit vers Ll'ACIA, sur une LED 
ce contrôle et vers la prise MIDI THAU: celle-ci est la 
réplique exacte de MIDI IN mais en sortie,elle est 
extrémement utile pour brancher plusieurs appareils en 
parallèle sur une mème sortie MIDI OUT. 


Voilà pour le schéma.Excusez-moi de ne pes vous 
proposer de plan de circuit imprimé mais ma maquette à moi 
est montée sur une pilsque d'expérimentation et pour 
l'instant je ne compte pas en changar.Mais vu le relative 
simplicité du schéma,la conception d'un circuit imprimé doit 
tre très simpie (à vous de jouer !), 


Les Différentes Comnections 
Pour la connection au X-SUS, je vous suggère un 


connecteur BERG de 2:25 br. femelle serti sur Cu cable napse 
59 cond. dont l'extrémité non sertie verra $es 50 5rins tous 


séssrés et soigneusement dénucès (ah! un peu de 
néturisme...), auis soudés à votre convenance BIEN SUR SI 
VOTRE CONNECTEUR X-BUS EST AESTE LIBSRAE ti! Sinon, 


débrouiiliez-veus comre vous pouvez ! 
Les numéros que je donne pour Les 3 prises DIN 5 br. 
chassis sont d'origine indiqués en clair sur celles-ci. 


Pour les 2 autres connections sur la certe mère 


-> IC 59 est un SN 74(LS)00 qui se trouve immédistement en 
haut à gauche ce ls première rangée des AAMs cynemique;3 
(donc tout-3-fait au bord gauche de la carte mère); 


=> IC 4S est sn SN ?74(LS)15S qui 4e trouve entre les F30M; 
type “bleu” et “vert” et à gauche du 3255 {donc quasiment 
au milieu de la carte mère). 


Les soudures <es 2 fils se font Ziraectement su: ï:es Sr235hes 
des deux cirouits en question (opération sans darger sous 
eux si elle e:*: faite vite et proprement mais attention aux 
court-circuits avec d’autres broches ! 


ATTENTION :51 vous n'utilise: ni KENOOS ni wC1541 on! 
CCA,oour que votre DAI marche aussi bien qu'avant, ii faut 
interconnectaer les fils 21 at 22 à la sortie du X-BUS (les 
EFAQOM du JAI sont ainsi revalidées). 

Sinon gare au plantage.... 


s.; CA ARNS SRE 

ps re ‘253 — — = 

D DAS APS 
> Et Œ 


Œ E-A 
LA RUBRIQUE PR©SEREZ CES BIOOUILLEURS !! 


Tout est soudé ,cablé,revérifié 7? Alors allumez votre DAI ! 
S'il se plante au “émarrége,avez-vous bien effectué 
l‘'interconnection signalée précédemment 7??? 


On INITIALISE le carte MIOI 


Avant de l'’utiliser,il faut l'initialiser; 
pour celé,taper en BASIC: 
POKE #FA00,3 "=> RAESET de l'ACIA 
puis 
POKE #FAO0,#56 ==> 8 bits-1 stop/pes d'interruption/cliock 
31.25 kB 


Avant chaque utilisation uiltérieure,bian effectuer ces 2 
POKES dans le bon ordre sinon rien ne marchara: ils ne sont 
nécessaires qu'une fois par allumage du DAI car le RESET 
n'influence pas l'interface mais si besoin peuvent être 
réitérés à tout moment (ils effectuent un AESET complet de 
L'ACIA). 


L'utilisation de le certe MIOT 


Avant d'envoyer ou de lire une donnée sur l'ACIA,il feut 
savoir s'il « reçu une donnée ou fini d'écrire !a 
précédente: tout celà se LIT en #FAO0 ,c'e3: le registre 
d'état de Ll'ACIA: 


--> bit O à t: une donnée est présente, donc prête à être lue 
dans le registre de réception ce Ll'ACIA; 

=> bit 1 à 1: la précédente donnée a été envoyée,donc 
L'ACIA o3t crét à an envoyer une autre. 


Exemples d'application et routires d'expioitation: 
EMISSION : èn 3ASIC 
<xxx> IF PEEK(#YFAQOO) IAND 2=0 GOTA «xxx 
POK£ #FAD1,donnée 


en_L.M. ertree:donnée -> A 
PUSH PSW 

<xuxx> LOA #FACD 

ANI 2 

JZ <xxx? 

POR PSw 

STA #FAO1 


RECEPTION : en BASIC sorsie:donnée -> var 
<xxa> IF PEEr(#FACCj IAND 100 GOTO «<xxx> 
var #PEEK(#FAC1) 


en L.M. sartie:donnée -> À 
<“xx> LOA #FAQGQO 

ANI 1! 

JE <xrx> 


LOA #FAQ1 


LA RUBRIQUE PREFÉREE DES BIOOUILLEURS !!! 


Pour Fimir 


Voilà! Tout est dit... Cheque LED indique s'il ya 
émission ou réception d'une donnée : c'est extrèmement utile 
et basucoup plus parlant que des POKE ou des PEEK. 


Si cel vous intéresse,j'ai écrit quelques programmes 
pour gérer l'EXPANDER 800 (ou le POLY 800) de KORG vis MIDI, 
ainsi qu'un progremme de gestion d'un vrai clavier 
branché... dans le SBUS-OCE et SPLITABLE, etc... (le rendu 
“dynemique" est en cours de réalisation) 


Que le mariage (du siécle) Dai/Midi ne soit pas un coup 
soit 


dans l'esu.J'attends vos impressions (ou quel que 
d'autre !!1!1) à cette adresse 

Pascal JANIN 

17, Clos des Marguerites 

73290 LA MOTTE SERVOLEX 

Tél: 79-25-67-14 

et que vive le DATI 2 A: 

Aemerque 
sachez que jusqu'ici,SEUL L'ATARI ST disoosait d’une telle 


interface MIDI. 
simplement un Music Construction Set} 


!) 


flemme 


QUI pourra 


liste des compos ans: 


R 


Ra 
[PET 
R4 


rs 
Re 


m'écrire un 


AG 
“ 


LS 


- 


HW - AN 
- 220û 


- A00 N 
7” - ASoNû 


v 


N LAC 
ne TC 
- AOO 

LA IG 
- AO0ON 


IG 


Gsoit 
AYkA 
2208N 


TNENTY-FOUR (ou pius 


sur OAI 7722 (j'ei 


… 


la 


diode AN9 44 où AN 4148 
A00nf 


44 à Ao04f /doV 
Ga($ dt oulun au char) 
NPN (Bcao?,8c 547.) 
HC 6250 (+ auppnt 4.) 
SN +4 LS 04 
2 opfocupkur TiL4#H {mu ricT- 2) 


Fe 


BR A : 40h Din She. haus 


das BERG 21154. 
AA ro LtSh pr da 4 


ut, Set SES RL sait 

A RON LE 

FE LRU zu 

VE à Sex 
S bus 


BIOQUILLEURS !! 


E—_— LL / “ 
US | signale 4 W eventuellement 
X-BUS 
| : 2 FE 5 à £ 
| rm —ineur D NN 


R4S _ 
TR Lb4 
“émission 


LÉ suszrvxevues 
EF ER BBRRERE 
Ÿ 
sale 


NauNe « TCQ 


Rd 
1<59,p# 


NE PAS CONNECTER 
]\ LA &ROCHE 9 DE LA 


s\FRise “Mihi in” 


SRTUS REGISTER - IC 4 (se: D 


Le. 
 Recele MA AESISTER ut (RDRF) 


À TRAIT Ta REGiSTee Engy (Tdee) 
2 da CARRIER dETecT | D) 
3 cLem To SEND (CTS) 


4 FRANING ERgor (FE) 
£ Pañity erRor (PE) 


+ INTERRUPT PERUEST (iRR) 


Vec(+s) RJwlA 


mis à 4 Lorsqu'une nouvelle clomnee estreçue 
sur R»D Alors que l'ancienne n'a pas sT4 lue 
dans le” Data Raqister" (R/ig:4, SEL -4) 


hi de : SR 7 Ki NES 9 
pa = 5 S = 
62 - LA RUBRIQUE PREFEREZ CES BIOOUILLEURS !! 


Amis Daistes, 


Faites attention à vos claviers : leurs touches 
sont irremplaçebles ! 


Ce n'est pas une boutade : j'en ai fais l'expé- 
rience. 


En effet, trois des touches de mon DAI me causant 
quelques ennuis, je décidais de les remplacer. 


Erreur ! La conception du clavier ne permet pas 
d'accéder au mécanisme, il faut alors tout changer. Pour 
couronner le tout, on ne trouve pratiquement plus de tou- 
ches au détail. J'eus la chance de tomber sur un stock 
de touches antirebonds et je vous envoie ci-joint mon adap- 
tation sous forme de schémas (solution 1). 


Cependant, il est possible d'acheter des claviers 
(sans interfaces electroniques) de dimensions compatibles 
avec le boitier du DAI, pour trois cents francs environ. 
Auquel cas, il faut câbler toutes les touches aux points 
des soudures de la carte mère. Ceci nécessite, afin de 
laisser le couvercle démontable, de faire les raccordements 
sous forme de cêble-nappe (120 fils !) et de connecteurs 
{solution 2). 


Ces deux possibilites permettent de transformer 
notre clavier en AZERTY, avec peu de frais. 


J'invite ceux qui ont d'autres solutions à les 
proposer aux lecteurs de DAICLIC. 


MR LORANT. 
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IOQUILLEURS !!! é 


chovier visse. 
seT le .. 


corle DAï 


DEFAUTS: les tentes, send de sir 1lee {ils » id PLIS 
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solution 2 - 
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7 POUR RESTER BRANCHE, LISEZ NEW ODAICLIC! 


PETITES ANNONCES 
ACHAT 


ée Mr. Morin Cleudius , 6 Aue Robert Houdin , 14000 Ceen. 
Tel 31.85.15.32. 


ACHETE des K7 OCA achat en nombre si prix intéressent. 
VENTES 


Besucoup de persones pour brader leur matériel. Que ceux qui 
restent en profitent pour compléter leur configuration avec 
le périphérique désiré !1 


e # Cause double emploi le club vends 


1 Paddle 3 Dim multisoft : 150 FF 

2 Peddie fabric. meison, manche à beleis 3 dim : 100 FF pièce 

1 Joystic 4 directions + bouton type spectravideo modifie 
pour DAI (c.f. daiclics) : 100 FF 


t DAI merchant bien, clavier état moyen, complet, 1000FF 
1 DAI clavier neuf à récupérer, reste hors d'usage, 120FF 


1 Kit pour fabriquer son Ken-Dos : Les circuits Imprimés + 

Eproms Ken-Dos + Eprom CP/M + Eprom DISKWIFE c'origine + 

Eprom DCA adeptée + Mode d'emploi en Anglais ou en Frençeis. 
1000 FF 


1 Drive Double Face Double Densité 800K octetspour votre Kit 
Ken-Dos. 1000 FF 


Exceptionnel 1 KEN-D0S 2#800K : deux lecteurs Double Face 
Double Densité, avec alimentation reforcée, cables, Eproms 
Ken-Dos + Eprom CP/M + Eprom DISKWIFE d’origine + Eprom DCA 
edaptée + Mode d'emploi en Anglais ou en Français. 
Ainsi que de nombreux logiciels Ken-Dos en cadeau. 

5000 FF 


+ + Mr. Mosanya Emeks, 8 Aue de Houdain, 7000 Mons, Belgique 
Vends DAI de Jenvier 85 complet en emballage d'origine. 


Double Drive INDATA complet 
Le tout pour SOO0FF port compris, à discuter. 


